Что будет на экране после выполнения программы var i,n,p:integer;
begin
read(n);
p:=1;
for i:=2 to n do
p:=p*i;
writeln(p);
end.
begin
read(n);
p:=1;
for i:=2 to n do
p:=p*i;
writeln(p);
end.
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.