Question

вывести числа от 10 до 30, которые делятся на 2 и на 3, но не делятся на 4

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...ОтделыОбмен";

ПЕР
  сч: ЦЕЛ;

УКАЗ
  ОТ сч := 10 ДО 30 ВЫП
    ЕСЛИ сч ОСТАТОК 2 = 0 И сч ОСТАТОК 3 = 0 И сч ОСТАТОК 4 # 0 ТО
      Вывод.ЧЦел("%d ", сч, 0, 0, 0)
    КОН
  КОН

КОН Задание.