Паскаль

Найдите произведение первых 10 натуральных чисел при помощи оператора while

Question

Мишука

4 октября, 07:12

+4

Ответы (1)

Знаете ответ на вопрос?

Михайлыч · Answer 1

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.

ПаскальНайдите произведение первых 10 натуральных чисел при помощи оператора while