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

[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]

Gambit,
Ты по-моему не до конца понял условие задачи...
Твоя программа должна просто запрашивать число N, и подсчитывать, сколько чисел из интервала
[10000000 .. 99999999] имеют сумму цифр меньше, чем N... Никаких 8-значных чисел тебе вводить не нужно...