Паскаль Найдите произведение первых 10 натуральных чисел при помощи оператора while
Паскаль
Найдите произведение первых 10 натуральных чисел при помощи оператора while
Гость
Ответ(ы) на вопрос:
Гостьprogram qq;
var per, res:integer;
begin
per:=1;
while(per < 10) do
begin
res:=per*(per + 1);
per := per + 1;
end;
write(res);
end.
Не нашли ответ?
Похожие вопросы