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