Ответы
Ответ дал:
0
var f,n,i:integer;
begin
readln(n);
i:=1;
f:=1;
repeat
f:=f*i;
i:=i+1;
until i>n;
writeln(f);
end.
begin
readln(n);
i:=1;
f:=1;
repeat
f:=f*i;
i:=i+1;
until i>n;
writeln(f);
end.
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад
7 лет назад