
Bosaszhur
6 год назад
Найти произведение всех натуральных чисел от 1 до 10
мой вариант, не уверена

ОТВЕТЫ

Venediktovich
Jul 25, 2019
var i,s:integer;
Begin
s:=1;
for i:=1 to 100 do s:=s*i;
writeln(s);
end.
113
var i,s:integer;
Begin
s:=1;
for i:=1 to 100 do s:=s*i;
writeln(s);
end.