编freepascal
2024-07-16 13:27:14作者：饭克斯
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.
{用程序解鸡兔同笼问题通常都是这样穷举的，除非数据太大可能超时才会优化。如果像上面那位仁兄，仅把这题当作数学题，那鸡兔同笼问题只是小学奥数同学做的，何必用高级的电脑呢？}
展开全文
