这里求大神~~~
pascal吧
全部回复
仅看楼主
level 5
爱QL88 楼主
小鱼最近被要求参加一个数字游戏,要求它把看到的一串数字(长度不一定,以0结束,最多不超过100个,数字不超过2^32-1),记住了然后反着念出来(表示结束的数字0就不要念出来了)。这对小鱼的那点记忆力来说实在是太难了,你也不想想小鱼的整个脑袋才多大,其中一部分还是好吃的肉!所以请你帮小鱼编程解决这个问题。
2015年08月19日 14点08分 1
level 5
爱QL88 楼主
题解在此
var i,n:longint;
a:array[1..100]of longint;
begin
while not eoln do begin
inc(n);read(a[n]);
end;
for i:=n-1 downto 1 do write(a[i],' ');
end.
2015年08月19日 14点08分 2
level 5
爱QL88 楼主
没明白啥意思,求大神讲解一下啦~
2015年08月19日 14点08分 3
level 12
procedure p;var i:DWORD;begin read(i);if i<>0 then begin p;write(i,' ')end end;begin p end.
[揉脸]果然还是最先想到递归
至于解释LZ的代码么……找本书看比较方便
2015年08月19日 15点08分 4
谢谢辣[乖]
2015年08月20日 09点08分
level 13
水贴给你个自删的机会
2015年08月19日 15点08分 5
要删吧主删喽 真的不是水…
2015年08月19日 22点08分
level 5
这程序 真水...
2015年08月21日 15点08分 6
1