Циклы.Исправьте код,а то сам ошибки не могу найти.

[Виндовс 7]

Подсчитать количество N-значных натуральных чисел,в которых сумма цифр непарная,а младшая цифра тоже непарная(младшая цифра я так думаю это 123->3).

Вот мой код

program nat_chisla;
uses Crt;
label 99;
var i,a,N,sum,r:byte;
begin
readln(N);
sum:=0;
for i:=10 to N do
begin
while i>0 do
begin
a:=i mod 10;
writeln(a);
if (a mod 2=0)then goto 99 else
sum:=sum+a;
i:=i div 10;
end;
if(sum=0)then goto 99 else
r:=r+1;
99:;
end;
writeln(r);
end.

Тип байт поставил чтобы раньше выйти с бесконечного цикла.

[kuy]

для while j применить и ошибку не выдаст:

program Project2;
{$APPTYPE CONSOLE}

uses
  SysUtils;
 label 99;
 var a,N,sum,r,i,j:byte;
 begin
 readln(N);
 sum:=0;
 for i:=10 to N do
 begin
 j:=i;
 while j>0 do
 begin
 a:=j mod 10;
 writeln(a);
 if (a mod 2=0)then goto 99 else
 sum:=sum+a;
 j:=j div 10;
 end;
 if(sum=0)then goto 99 else
 r:=r+1;
 99:;
 end;
 writeln(r);
 readln;
 end.

[Виндовс 7]

kuy все равно неправильно. Попробуй ввести например число 125. Ничего не будет считаться.
Но все равно спс.

[Mad_Cat]

{Подсчитать количество N-значных натуральных чисел,
в которых сумма цифр непарная,а младшая цифра
 тоже непарная(младшая цифра я так думаю это 123->3).}
Function SumOfDigit(X:longint):integer;
var s:integer;
begin
s:=0;
while (x>0) do
begin
s:=s+x mod 10;
X:=x div 10;
end;
 SumOfDigit:=s;
end;
var n:integer;
a,b,i:longint;
begin
readln(n);
a:=1;b:=1;
for i:=1 to n-1 do
a:=a*10;
b:=a*10-1;
for i:=a to b do
if odd(sumofdigit(i)) and odd(i) then writeln(i);
readln;
end.

[Виндовс 7]

Mad_Cat спс,но я ещё функции не изучал.Но прога работает правильно.

[Виндовс 7]

Случайно на одном сайте нашёл похожую задачку с кодом.Немного его подкоректировал и все правильно работает.
У кого есть желание можете посмотреть.

uses crt;
var n,p,i,j,k:longint;
    s:byte;
begin
clrscr;
repeat
write('Введите количество цифр от 1 до 9 n=');
readln(n);
until n in [1..9];
j:=1;
for i:=1 to n do
j:=j*10;{определяем степень 10}
writeln(n,'-значные числа с нечетной суммой цифр и четной последней цифрой:');
k:=0;
for i:=j div 10 to j-1 do{от в 10 раз меньше до на 1 меньше}
 begin
  p:=i;s:=0;
  while p>0 do
   begin
    s:=s+p mod 10;{считаем сумму цифр числа}
    p:=p div 10;
   end;
  if odd(s)and(i mod 2>0) then{если сумма нечетная, а последняя цифра нечетная}
  k:=k+1;{считаем}
 end;
write('Всего таких чисел=',k);
readln
end.