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