Паскаль

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

Question

Геша

3 мая, 05:22

+2

Ответы (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