Question

Рассматривается множество целых чисел, принадлежащих числовому отрезку [1740; 14454], которые делятся на 4 и 5 и не делятся на 8, 12, 16, 30. Найдите количество таких чисел и минимальное из них. В ответе запишите два целых числа без пробелов и других дополнительных символов: сначала количество, затем минимальное число.

Для выполнения этого задания можно написать программу или воспользоваться редактором электронных таблиц.

Программа Паскаль!!!!!!

Дам 30 баллов!!!!!

СРОЧНО ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!

Answer 1

Ответ:

program z1;

var i,k,m: integer;

begin

k:=0;

for i:=1740 to 14454 do

if (i mod 4 = 0) and (i mod 5 = 0) and (i mod 8 <> 0) and (i mod 12 <> 0) and (i mod 16 <> 0) and (i mod 30 <> 0) then

begin

k:=k+1;

if k=1 then m:=i

end;

writeln(k,m)

end.

Объяснение:

Цикл с параметром для перебора целых чисел из отрезка

Проверка условия, если условие истинно, то увеличиваем k на 1 (счётчик количества чисел соответствующих условию) и если k=1 (найдено первое число), то записываем его в переменную m

Вывод чисел, согласно условию