Предмет: Информатика,
автор: Ataman5657
Напишите пожалуйста процедуру Паскаль по этой программе:
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;
Интересные вопросы
Предмет: Русский язык,
автор: кимтимур
Предмет: Русский язык,
автор: corrida73
Предмет: Русский язык,
автор: Анастасия2931
Предмет: Химия,
автор: sobakazabiyaka
Предмет: Русский язык,
автор: vikavika090109