Помогиите наарод пожалуйста!!Очень прошу!!Информатикаа!Пожалуйстааа!!

1

Ответы и объяснения

2014-01-17T13:24:31+00:00
Первый и второй я уже тебе решал
а теперь решу 3
3)
program gt;
var n,i,p:integer;
begin
read(n);
p:=1;
for i:=1 to n do
begin
p:=p*i;
end;
writeln(p);
end.