Ответы
Ответ дал:
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.
Вас заинтересует
11 месяцев назад
1 год назад
6 лет назад
6 лет назад