UC知道pascal求字符串逆转
来源：百度知道 编辑：UC知道 时间：2024/05/14 09:26:23
输入
在输入的第一行，有一个正整数N，1<N<=1000000，表示需要处理多少组数据。从第2行开始是需要测试的数据。每1组数据有两行，第一行是一个整数L，0<=L<=40，表示要处理的字符串的长度，第二行是字符串，串中的所有字符都是大小写字母，没有其他。
输出
对于每一组输入字符串，先打印出“Num # : ”（引号不用打印），然后打印出逆转后的字符串。每个答案单独占一行，每行之间空一行
输入样例
3
10
abcdefghij
5
rEaDy
1
A
输出样例
Num 1 : jihgfedcba
Num 2 : yDaEr
Num 3 : A
在输入的第一行，有一个正整数N，1<N<=1000000，表示需要处理多少组数据。从第2行开始是需要测试的数据。每1组数据有两行，第一行是一个整数L，0<=L<=40，表示要处理的字符串的长度，第二行是字符串，串中的所有字符都是大小写字母，没有其他。
输出
对于每一组输入字符串，先打印出“Num # : ”（引号不用打印），然后打印出逆转后的字符串。每个答案单独占一行，每行之间空一行
输入样例
3
10
abcdefghij
5
rEaDy
1
A
输出样例
Num 1 : jihgfedcba
Num 2 : yDaEr
Num 3 : A
var n,m,i,j:longint;
s:string;
begin
readln(n);
for i:=1 to n do begin
readln(m);
redaln(s);
write('Num ' & i & ' : ')
for j:=m downto 1 do write(s[j]);
writeln;
writeln;
end;
end.
var n,i,j,temp:integer;temps:ansistring;
s:[1..1000000]of ansistring;
begin
read(n);
for i:=1 to n do
begin
readln(temp);
readln(s[i]);
end;
for i:=1 to n do
begin
writeln;
write('Num ',i,':');
temps:=s[i];
for j:=length(temps) downto 1 do
write(temps[j]);
writeln;
end;
end.