10 lines
226 B
ObjectPascal
10 lines
226 B
ObjectPascal
{Copy and paste it in your program}
|
|
function revstr(my_s:string):string;
|
|
var out_s:string;
|
|
ls,i:integer;
|
|
begin
|
|
ls:=length(my_s);
|
|
for i:=1 to ls do
|
|
out_s:=out_s+my_s[ls-i+1];
|
|
revstr:=out_s;
|
|
end;
|