Вычислить факториал, используя вложенные циклы - 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.