Посчитать сколько нечетных цифр в н - значном числе! (паскаль)

решение:

var x, n:integer;

begin

n:=0;

for x:=11 to 99 do

if odd (x) then inc (n);

writeln (n);

readln;

end.

раскинув мозгами

begin writeln ((99-10+1) div 2); readln; end.

а так как число двузначных нечетных всегда постоянно, то самое правильное решение

begin writeln (45); readln; end.