Question

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

Answer 1

var i:integer;
a:array[1..30] of integer;
begin
for i:=1 to 30 do begin
readln(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.

Answer 2

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

Answer 3

спасибо

Answer 4

пожалуйста