программа "перевертыш" Опции

[STIFLER]

Написать программу, которая запрашивает строку, затем сначала выводит строку в "перевернутом" виде (например, вводим РОЗА). Затем та же строка выводится в прямом виде (выводится АЗОР).

Сообщение отредактировано: STIFLER - 23.02.2009 14:45

[volvo]

М

STIFLER, заголовок поменяй, "help" никак не может быть информативным... (Правила Форума, п. 4)

[Ozzя]

Палиндромы

[Lapp]

Ozzя, при чем тут палиндромы?

Напечатать строку наоборот можно так, например:

for i:=Length(s) downto 1 do Write(s[i]);

[Ozzя]

Ozzя, при чем тут палиндромы?

Там по ссылке:

{Этой функции присваевается значение перевернутого слова}
function palindrom(x:string):string;
var
  str:string;
  j:integer;
begin
  str:='';
  for j:=length(x) downto 1 do str:=str+x[j];
  palindrom:=str;
end;