Предмет: Информатика,
автор: asyakostinav
Составьте программу для нахождения количества чисел, кратных 3
и 5 в интервале от 300 до 1000.
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Математика,
автор: alinamelnik890
Предмет: Психология,
автор: artur9267
Предмет: ОБЖ,
автор: rxa69884
Предмет: Химия,
автор: настька456