выведите (через пробел ) все четные числа от 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
