Вычислить факториал, используя вложенные циклы - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Вычислить P=(x*t)! x=1(1)4, где t=1.5, если х - чётное t=2, если х - нечётное Можете указать здесь ошибки?

Решение задачи: «Вычислить факториал, используя вложенные циклы»

textual
Листинг программы
Program Lab5;
 Var x, xh: integer;
     t, n, i, P: real;
 Begin
  x:=1;
  xh:=1;
   repeat
    if (odd(x)) then
     begin
       t:=2;
     end
    else
     t:=1.5;
     n:=t*x;
     P:=1;
      repeat
       P:=P*n;
       n:=n-1;
      until n < 1;
     writeln(P:6:2);
     x:=x+xh;
   until x > 4;
 End.

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы