решение:
<span>var x,n:integer; </span>
<span>begin </span>
<span>n:=0; </span>
<span>for x:=11 to 99 do </span>
<span>if odd(x) then inc(n); </span>
<span>writeln(n); </span>
<span>readln; </span>
<span>end. </span>
<span>раскинув мозгами </span>
<span>begin writeln((99-10+1) div 2); readln; end. </span>
<span>а так как число двузначных нечетных всегда постоянно, то самое правильное решение </span>
<span>begin writeln(45); readln; end.</span>
<h2>Пример 1</h2>
0 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 0 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 0 + 0 + 32 + 0 + 0 + 0 + 4 + 2 = 32 + 4 + 2 = 38₁₀
<h2>Пример 2</h2>
1 · 2⁷ + 1 · 2⁶ + 0 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 1 · 2⁰ = 128 + 64 + 0 + 8 + 4 + 2 + 1 = 207₁₀
<h2>Пример 3</h2>
1 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 128 + 0 +32 + 0 + 8 + 4 + 2 + 0 = 174₁₀
<h2>Пример 4</h2>
0 · 2⁷ + 1 · 2⁶ + 1 · 2⁵ + 1 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 1 · 2⁰ = 0 + 64 + 32 + 16 + 8 + 4 + 2 + 1 = 127₁₀
Т.к. нужно чтобы все цифры числа были либо четными либо нечетными
то будет больше тех чисел, у котрорых подходит больше цифр.
четные цифры до 10: 2,4,6,8;
нечетные цифры до 10: 1,3,5,7,9;
=>больше будет 5 значных нечетных чисел.
(2500 5 значных четных чисел и 3125 5 значных нечетных чисел)
Begin
for var i=1 to n do
Writeln(i);
end.