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