Составьте программу для нахождения количества чисел, кратных 3 и 5 в интервале от 300 до 1000.
Составьте программу для нахождения количества чисел, кратных 3
и 5 в интервале от 300 до 1000.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы