Question

3 задание...хэлп ми плиз

Answer 1

var n,p,i: integer;
begin
p:=1;
writeln('введите n');
readln(n);
for i:=1 to n do
begin
p:=p*i;
end;
writeln(p);
end.

Answer 2

а можно еще графически на бумаге и алгоритм и блок-схему?

Answer 3

если не сложно