Предмет: Информатика,
автор: Хардкорная
Составьте программу вычисление количества трёхзначных чисел, кратных 2 и 3
Ответы
Автор ответа:
0
var
i : integer;
begin
for i:= 100 to 999 do
if (i mod 2 = 0) and (i mod 3 = 0) then writeln(i); {Если остаток от деления на 2 и на 3 равен 0, то печатаем это число}
end.
Интересные вопросы
Предмет: Алгебра,
автор: lajsangazizovta08
Предмет: Информатика,
автор: kostenkov25934
Предмет: История,
автор: Veronichka5683
Предмет: История,
автор: tomkin
Предмет: Математика,
автор: 2197931