Написать программу, которая для целых чисел из диапазона [2; 40] выводит на экран только те, которые делятся на 7 и на 3.

Question

Информатика

Елгуджа

9 июля, 04:14

Написать программу, которая для целых чисел из диапазона [2; 40] выводит на экран только те, которые делятся на 7 и на 3.

+3

Ответы (1)

Знаете ответ на вопрос?

Суламита · Answer 1

Если я правильно понял, то делится сразу и на 7 и на 3

var i:integer;

begin

for i:=2 to 40 do

begin

if (i mod 3=0) then if (i mod 7=0) then write (' ', i)

end;

end.