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

[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 19:08

[volvo]

Кстати, как ни странно, тупой перебор (с некоторым ограничением) дает результат за вполне приемлемое время, измеряемое секундами (3.3 секунды при N = 44):

program pro;
uses crt;

var
  n: integer;
  i1, i2, i3, i4, i5, i6, i7, i8: byte;
  count: longint;
begin
  write('n = '); readln(n);
  count := 0;
  if (n > 0) or (n < 9*8) then begin
    for i1 := 1 to 9 do if i1 < n then
      for i2 := 0 to 9 do if (i1+i2) < n then
        for i3 := 0 to 9 do if (i1+i2+i3) < n then
          for i4 := 0 to 9 do if (i1+i2+i3+i4) < n then
            for i5 := 1 to 9 do if (i1+i2+i3+i4+i5) < n then
              for i6 := 0 to 9 do if (i1+i2+i3+i4+i5+i6) < n then
                for i7 := 0 to 9 do if (i1+i2+i3+i4+i5+i6+i7) < n then
                  for i8 := 0 to 9 do
                    if (i1+i2+i3+i4+i5+i6+i7+i8) < n
                    then inc(count);
  end;
  if count = 0 then writeln('none')
  else writeln('count = ', count);
end.