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

Question

Ладонька

26 сентября, 03:38

+4

Ответы (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.