День Добрый! Помогите с решением задачи.
Заранее благодарен.
В массиве найти пару слов,
из которых одно является обращением другого.
Полная версия: Задача
Цитата
одно является обращением другого.
Хм ну давай погадаем. Рискну предположить что тебе нужно зайти в поиск и набрать "палиндром".
Хм... посмотрите, что есть... В общем 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.
Код
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
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.