Определите количество подходящих чисел, принадлежащих отрезку [30 001

Решение по шагам

1. 1

   Как рассуждать

   Решение. Решим задачу перебором. Приведём решение данной задачи на языке Паскаль:var del, count, min, i, j: longint;begin count := 0; del := 0; min := 50001; for i := 30001 to 70000 do begin for j := 1 to i do begin if i mod j = 0 then del := del + 1; end; if del > 17 then begin count := count + 1; if min > i then min := i; end; del := 0; end; writeln(count, min);end.Результат работы программы —