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

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

Вычислить P=(x*t)! x=1(1)4, где t=1.5, если х - чётное t=2, если х - нечётное Можете указать здесь ошибки?
program Lab5;
 
var
  x, xh: integer;
  t, n, i, P: real;
 
begin
  x := 1;
  xh := 1;
  n := t * x;
  P := 1;
  i := n;
  repeat
    if (odd(x)) then
    begin
      t := 2;
      repeat
        P := P * i;
        i := i - 1;
      until i < 1
    end
    else
      t := 1.5;
    repeat
      P := P * i;
      i := i - 1;
    until i < 1;
    writeln(P:6:2);
    x := x + xh;
  until x > 4;
end.

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

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


СОХРАНИТЬ ССЫЛКУ