Целочисленная арифметика (задача), Нужна помощь Опции

[Gambit]

СРОЧНО Нужна помощь в решении задачи:
Дано натур. число N. Определить кол-во 8 значных чисел, у которых сумма цифр в цифровой записи числа меньше, чем N. Если таких чисел нет, выводим НЕТ.

Тут мой вариант, только считается как то странно и вводить можно любые числа, а не только 8 значные.

Код

program pro;
uses crt;
var x:array[1..8]of integer;
i,n,m,sum,s:integer;
begin
write('Вводим M для сравнения');
readln(m);
write('Ввод n: ');
readln(n);
write('Ввод 8 значных чисел');
for i:=1 to n do
begin
readln(x[i]);
sum:=sum+x[i];
end;
if sum<m then
begin
s:=s+1;
writeln('Таких чисел: ',sum);
end
else
writeln('Нет таких чисел');
readkey;
end.

Сообщение отредактировано: Gambit - 24.06.2005 23:08

[Romtek]

Вот эта задача в моём понимании выглядит так:

{
Дано натур. число N. Определить кол-во 8 значных чисел,
у которых сумма цифр в цифровой записи числа меньше, чем N.
Если таких чисел нет, выводим НЕТ.
}

program _8digits;

function SumOfDigits (x: longint): integer;
var
  rem, { остаток }
  sum: integer;
begin
	sum := 0;
	While X <> 0 Do
	Begin
		rem := X Mod 10; { остаток от деления на 10, т.е последняя цифра числа }
		inc (sum, rem);
		X:=X Div 10;
	End;
	SumOfDigits := sum;
end;

var
  n, count: integer;
  i : longint;

begin
  write ('Enter 1 <= n <= 72 : '); readln (n);
  count := 0;

  for i := 10000000 to 99999999 do
  begin
        if i mod 10000 = 0 then
           writeln (i);
	if SumOfDigits (i) < N then
		inc(count);
  end;
  
  if count = 0 then 
	writeln('none')
  else
	writeln('count = ', count);
  readln;
end.

В Turbo Pascal 7.0 я не долждался получения результата, прождав пару минут где-то на итерации числа 22400000.
Зато во Free Pascal 2.0.0 я получил результат в течение 1-минуты и пару секунд.