Вывести на экран все четные числа из отрезка от a до b, при этом границы отрезка заведомо правильно вводятся с клавиатуры. Паскаль, цикл while
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Program n1;var a,b: integer;
begin
readln(a,b);
if a mod 2<>0 then a:=a+1;
while a<=b do
begin
write(a,' ');
a:=a+2;
end;
end.