Составить блок схему и программу. найти количество - вопрос №1440650 от nightmarelucy 07.01.2023 07:00

Question

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

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