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

Question

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

Comments

если кому надо я уже сама решила vara,b:integer;beginfor a:=300 to 1000 doif (a mod 3=0)and(a mod 5=0)thenbeginb:=b+1;end;writeln(b);end.

---

ты тогда тот пост убери, просто там тоже самое)

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.