Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

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

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

Цитата

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

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

Хм... посмотрите, что есть... В общем 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;

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

Цитата(Артемий @ 3.06.2007 19:58)

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

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

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