Как написать программу, к-ая переворачивает вводимое слово задом наперед7

[*PB*]

Вариант на PureBasic

Slovo.s=InputRequester("","Введите слово","")
If Slovo
  Slovo=ReverseString(Slovo)
  MessageRequester("Развернутое слово", Slovo)
EndIf

Во вложении скомпилированная прога для винды, но ее без проблем можно скомпилировать и для Linux и MacOS X

[Stilet]

буду очень благодарен !!!

const s='роза';var i:integer;begin for i:=length(s) downto i do write(s[i]);readln;end.

Ню и?

[kaljan775]

readln();
writeln("азор");

:D

[XeruH]

Сообщение от maks2020

напишите пожалуйста на паскале

Смотрим внимательно!!!

Сообщение от XeruH

Так проще вроде:

function ReflectStr(str:string):string;
var
i:integer;
begin
for i:=length(str) downto 1 do result:=result+str[i];
end;

Кстати данная функция прекрасно заработает и на Паскале

[Alter]

Вот более быстрая функция:

function MirirText(S :String):string;
var
  I,II,L :Integer;
  Buf :Char;
  Tmp :string;
begin
 Result := S;
 if S = '' then
  Exit;
 Tmp := S;
 L := Length(Tmp);
 II := L div 2;
 for I := 1 to II do
 begin
  Buf := Tmp[I];
  Tmp[I] := Tmp[L - I + 1];
  Tmp[L - I + 1] := Buf;
 end;
 Result := Tmp;
end;