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

Question

Информатика

Беля

19 декабря, 12:41

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

+2

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