Вывести нечетные числа из диапазона [a ;b], где a b м.б. как четными так и нечетными, а...

Question

Вывести нечетные числа из диапазона [a ;b], где a b м.б. как четными так и нечетными, а также отрицательными НО обязательно a

Comments

НО обязательно a ?

Answer 1

Var a,b:integer;
idx:integer;
begin
writeln('Вывести нечетные числа из диапазона [a..b]');
write('a='); readln(a);
write('b='); readln(b);

for idx:=a to b do
if odd(idx) then
write(idx:6);
end.

---