Question

Оставьте программу, выводящую на экран числа от 1 до 30, которые делятся без остатка на 2 и 3, но не делятся на 4. Но, что бы решение было БЕЗ "for", а с while

Answer 1

Var n:integer;
begin  n:=1;
while n<30 do 
  begin   
    if (n mod 2 = 0) and (n mod 3 = 0) and (n mod 4 <> 0) then write(n,' ');                  n:=n+1; 
  end;
end.