Составить блок схему и программу. найти количество - вопрос №1439748 от PolinaFox6002 03.05.2023 07:11

Question

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

PolinaFox6002 · Answer

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....