Составить программу, которая вычисляет количество чисел кратных 3, 4 и 5 одновременно в диапазоне от 1 до 1000.

Question

Иваныч

15 апреля, 16:40

+4

Ответы (1)

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

Витяся · Answer 1

Var i, c : integer;

begin

for i : = 1 to 1000 do

if (i mod (3*4*5) = 0)

then c : = c + 1;

writeln (c) ;

end.