
Задание в паскале:
Составить программу, вычисляющую N факториал (N вводится с клавиатуры).

Var n,i,c:integer;
begin
c:=1;
readln(n);
for i:=1 to n do
c:=c*i;
writeln(c);
end.
Оцени ответ