оставьте программу, выводящую на экран числа от 1 до 30, которые делятся без остатка на 2 и 3, но не делятся на 4. Но, что бы решение было БЕЗ "for", а с while
Answers & Comments
glebik9695glebkaable
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.
Answers & Comments
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.