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

1
если кому надо я уже сама решила var
a,b:integer;
begin
for a:=300 to 1000 do
if (a mod 3=0)and(a mod 5=0)then
begin
b:=b+1;
end;
writeln(b);
end.
ты тогда тот пост убери, просто там тоже самое)

Ответы и объяснения

  • Участник Знаний
2014-02-26T17:15:31+04:00
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.