Здравствуйте, помогите пожалуйста с программой для языка паскаль. задача. Вывести **...

Question

Здравствуйте, помогите пожалуйста с программой для языка паскаль. задача. Вывести на экран задом наперёд данную строку симвтолов . спасибо

Answer 1

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.