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

Question

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

karleusastar · Answer

не знаю правильно ли я поняла, но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;beginread(n);test(n, i);writeln(s);end;...

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

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