Строка, Паскаль

[Паскалька^^]

Дана строка. Переписать строку в новую в обратном порядке

[_Dmitry]

К строке можно обращаться как к массиву символов.

s1:='';
for i:=length(s) downto 1 do
  s1:=s1+s[i];

[Паскалька^^]

А как прогу то написать, которая всю строку в обратном порядке перепишет?

[maladoy]

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

К строке можно обращаться как к массиву символов.

s1:='';
for i:=length(s) downto 1 do
  s1:=s1+s[i];

тут же все уже написано!!?????

[_Engine_]

так тебе уже написали

[Манжосов Денис :)]

program Test;
var s,s1: string;
i: byte; 
begin
 S := 'паолпроарполварп';
 for i:=Length(S) downto 1 do
  S1 := S1+S[i];
 WriteLn(S);
 Write(S1);
readLn;
end.

[Паскалька^^]

спасибо, туплю...%)))