составьте программу,выводящую на экран числа от 1 до 30, которые делятся без остатка на 2 и 3,но не делятся на 4

такой вопрос, циклы проходили?

да

вот тогда var i:integer;beginfor i:=1 to 30 do beginif(i mod 2 =0)and(i mod 3 =0)and (i mod 4 <>0)then writeln(i);end;end.

спасибо

пожалуйста

var i:integer;a:array[1..30] of integer;beginfor i:=1 to 30 do beginreadln(a[i]);if(a[i]mod 2 =0)and(a[i]mod 3 =0)and (a[i]mod 4 <>0)then writeln(a[i]);end;end.