Задача, Массивы Опции

[theRock]

День Добрый! Помогите с решением задачи.
Заранее благодарен.

В массиве найти пару слов,
из которых одно является обращением другого.

[klem4]

одно является обращением другого.

Хм ну давай погадаем. Рискну предположить что тебе нужно зайти в поиск и набрать "палиндром".

[theRock]

Хм... посмотрите, что есть... В общем IntToString надо как-то заменить...

Код

var
i,j:integer;
a:string;
begin
for i:= to 9 do
   begin
     a:='';
     for j:=9 downto i do
       a:=a+IntToStr(j);
     WriteLn(a)
   end;
end.

[Артемий]

function inttostr(i: integer): string;
var
 s: string;
begin
 str(i,s);
 inttostr := s;
end;

её и используй в паскале..а задание можно попроще выразить?

[theRock]

function inttostr(i: integer): string;
var
 s: string;
begin
 str(i,s);
 inttostr := s;
end;

её и используй в паскале..а задание можно попроще выразить?

Хмм.. ну в ту тему кинул=)
Задание вывести на экран
987654321
98765432
9...3
9