Напишите пожалуйста процедуру Паскаль по этой программе:
var
n, i, s: integer;
begin
read(n);
s := 1;
for i := 1 to n do
s := s * i;
writeln(s);
end.
Ответы
Ответ дал:
0
Ответ:
не знаю правильно ли я поняла, но
var n, i:integer;
procedure test(n, i: integer; var s:integer);
begin
s:=1
for i:=1 to n do
s:= s*i;
end;
begin
read(n);
test(n, i);
writeln(s);
end;
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад
8 лет назад