1. Var S : String; i : Byte; Begin Readln(S); For i:=Length(S) downto 1 do Write(S[i]); Writeln; end.
2. Function StRevers(St : String) : String; Begin If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1] else StRevers:=St; end; Var S : String; Begin Readln(S); Writeln(StRevers(S)); end.
Answers & Comments
Verified answer
1.Var S : String;
i : Byte;
Begin
Readln(S);
For i:=Length(S) downto 1 do Write(S[i]);
Writeln;
end.
2.
Function StRevers(St : String) : String;
Begin
If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
else StRevers:=St;
end;
Var S : String;
Begin
Readln(S);
Writeln(StRevers(S));
end.