выведите (через пробел ) все четные числа от a до b (включительно)
program test;var a, b, i: integer;begin write('Enter a, b: '); readln(a, b); for i:=a to b do if i mod 2 = 0 then write(i, ' '); readln;end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program test;
var a, b, i: integer;
begin
write('Enter a, b: ');
readln(a, b);
for i:=a to b do
if i mod 2 = 0 then
write(i, ' ');
readln;
end.