Определить и вывести на экран количество трехзназных чисел, которые делятся 3, 5 и 7 одновременно

Question

Информатика

Увар

3 сентября, 23:39

Определить и вывести на экран количество трехзназных чисел, которые делятся 3, 5 и 7 одновременно

+2

Ответы (1)

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

Жела · Answer 1

Program z1;

var i, k : integer;

begin

k:=0;

for i:=100 to 999 do

if (i mod 3=0) and (i mod 5=0) and (i mod 7=0) then

k:=k+1;

writeln (k) ;

end.