Составьте программу для нахождения количества чисел, кратных 3

и 5 в интервале от 300 до 1000.

Question

Мира

20 июля, 15:07

+4

Ответы (1)

Знаешь ответ?

Гедеон · Answer 1

Var i, k:integer;

begin

k:=0;

for i:=300 to 1000 do

begin

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

begin

k:=k+1;

end;

end;

writeln (k);

end.

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