Составить блок схему и программу. Найти количество множителей для получения произведения всех натуральных чисел, чтобы произведение не превышало 200

Question

Информатика

Ива

18 декабря, 02:30

Составить блок схему и программу. Найти количество множителей для получения произведения всех натуральных чисел, чтобы произведение не превышало 200

+3

Ответы (1)

Знаете ответ?

Бронислав · Answer 1

var Max, i, P:integer;

Begin

Max : = 200;

i : = 1;

P : = 1;

while (P * (i+1) <=Max) do Begin

i : = i + 1;

P : = P * i;

end;

writeln (i, P) ;

End.