Найти произведение всех натуральных чисел от 1 до 10 мой вариант, не уверена
Найти произведение всех натуральных чисел от 1 до 10
мой вариант, не уверена
Ответ(ы) на вопрос:
Гость
var i,s:integer;
Begin
s:=1;
for i:=1 to 100 do s:=s*i;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы