Question

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

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.