var
s1,s2:string;
i:integer;
begin
s1:='';s2:='';
readln(s1);
fori:=1tolength(s1)dos2:=s1[i]+s2;
writeln(s2);
end.
{像这类要把数字反转的题,我都喜欢用字符串来操作,写起来简洁。当然楼上的做法也是可以的,但是建议那样做最好用数组}
var
b,t:integer;
begin
forb:=0to65dobegin
t:=65-b;
if(b*2+t*3=150)thenbreak;
end;
writeln(b,'',t);
end.
{用程序解鸡兔同笼问题通常都是这样穷举的,除非数据太大可能超时才会优化。如果像上面那位仁兄,仅把这题当作数学题,那鸡兔同笼问题只是小学奥数同学做的,何必用高级的电脑呢?}