(х-1)(х-3)(х-7)х..х(х-63)/(х-2)(х-4)(х-8)х...х(х-64) составить программу в турбо паскале

1

Ответы и объяснения

  • nemp
  • хорошист
2013-04-11T15:58:08+04:00

Program dz2;
uses crt;
Var x,i,proizv1,proizv2:integer;
Begin
Write('Введите x, x=');
Readln(x);
i:=1;
proizv1:=1;
proizv2:=1;
Repeat
proizv1:=proizv1*(x-i);
i:=i+2;
Until i=63;
i:=2;
Repeat
proizv2:=proizv2*(x-i);
i:=i+2;
Until i=64;
If proizv2<>0 then
Writeln('Резульат = ',proizv1/proizv2) else
Writeln('Деление на ноль!');
End.