Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Выведите (через пробел) все четные числа от а до b (включительно).

Ответ оставил Гость

Program p1;
var a,b,i:integer;
begin
writeln(Введите a);readln(a);
writeln(Введите b);readln(b);
for i:=a to b dobeginif (i mod 2)=0 Then write(i, );
end;
end.