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

Question

Маргуша

28 июля, 15:23

+1

Ответы (1)

Знаете ответ?

Ванюта · 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.