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

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

Question

Милаша

6 апреля, 22:26

+1

Ответы (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.