Question

Напишите пожалуйста процедуру Паскаль по этой программе:
var
n, i, s: integer;
begin
read(n);
s := 1;
for i := 1 to n do
s := s * i;
writeln(s);
end.​

Answer 1

Ответ:

не знаю правильно ли я поняла, но

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;