编freepascal

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.

{用程序解鸡兔同笼问题通常都是这样穷举的,除非数据太大可能超时才会优化。如果像上面那位仁兄,仅把这题当作数学题,那鸡兔同笼问题只是小学奥数同学做的,何必用高级的电脑呢?}

免责声明:本站发布的游戏攻略(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场。
如果本文侵犯了您的权益,请联系站长邮箱进行举报反馈,一经查实,我们将在第一时间处理,感谢您对本站的关注!