Pascal
var i:integer;
a,b:string;
begin
b:='';
write('Stroka - ');readln(a);
for i:=length(a) downto 1 do
begin
b:=b+a[i];
end;
write('stroka b=',b);
end.
C#
public static string Reverse( string s )
{
char[] charArray = s.ToCharArray();
Array.Reverse( charArray );
return new string( charArray );
}
Следующий вариант
string A = "abcd";
string B = "";
for (int i = 0; i < A.Reverse().ToArray().Length; i++)
B += A.Reverse().ToArray()[i];
Console.WriteLine(B);
Следующий вариант
A.Reverse().ToArray().Length