Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Используя жёсткий цикл решите задачу. Выведите на экран все числа от -30 до 50 которые делятся на 3 и на 4.

Ответ оставил Гость

Не понятно про "Жесткий" цикл. Но как вариант:

var i:integer;
begin
  for i:=-30 to 50 do
  if (i mod 3=0) and (i mod 4 =0) and(i<>0 then writeln(i);
end.

На выходе:
-24
-12
12
24
36
48