Найти число по условию.

[нютафффффф]

Пожалуйста помогите написать программу на языке Паскаль: определить в пределах первой сотни число сумма цифр которого больше самого числа?

[Greblin]

Задача не имеет решения. Доказательство. Пусть такое число существует и равно 10k + l, где k и l - однозначные числа. Тогда
10k+l < k + l;
9k < 0 - невозможно

[ОДИНОЧЕСТВО В СЕТИ]

var i:integer;
begin
for i:=11 to 99 do
if (i mod 10 +i div 10)>i then writeln(i);
readln;
end.

[нютафффффф]

Программа не работает, перепробовала все! Нужно использовать также числа от 1до 9, и 10 до 99.

[LeBron]

Программа работает. Еще раз прочтите сообщения выше - такого числа не существует

[Chudo4258]

var i:integer;
begin
for i:=0 to 99 do
if (i mod 10 +i div 10)>i then writeln(i);
readln;
end.

Но решений все равно не будет...

[Stilet]

Задача не имеет решения.

Имеет, его LeBron озвучил . Для программирования это тоже решение.

[Serge_Bliznykov]

Имеет, его LeBron озвучил . Для программирования это тоже решение.

согласен.
Но ни один из вышеприведённых примеров решения такой результат не выдаёт!
это можно сделать примерно так:

var i:integer;
  Res : boolean;
begin
  Res := false;
  for i:=0 to 99 do
     if (i mod 10 +i div 10)>i then 
     begin  
        writeln(i); 
        Res := true;
     end;
if Not Res Then WriteLn('Ни одного подходящего числа не было найдено.');
readln;
end.