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

Question

90

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

в избранное ссылка

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

nic87 · Accepted Answer

43

nic87

28 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить