Помогите пж очень надобно, в программе паскаля надо написать

1

Факториал нуля равен единице. Если N по условию может быть отрицательным, сходу после ввода следует это проверить.

Будем хранить ответ в переменной fc с исходным значением 1. Будем перебирать все числа от 2 до N и домножать fc на каждое из их.

Код

var

 n, i, fc: longint;

begin

 read(n);

 fc := 1;

 for i := 2 to n do

   fc := fc * i;

 writeln(fc);

end.

2

Используем цикл for, но заместо to будем писать downto.

Код

var

 i: integer;

begin

 for i := 28 downto 17 do

   writeln(i);

end.

program faktorial;

var n,s,k: real;

begin

write('ВВедите n ');

readln(n);

s:=1; k:=1;

while klt;n do

begin

k:=k+1;

s:=s*k;

end;

writeln('ответ ',s:0:1);

end.