P1427 小鱼的数字游戏

P1427 小鱼的数字游戏

题目描述

小鱼最近被要求参加一个数字游戏，要求它把看到的一串数字（长度不一定，以0结束，最多不超过100个，数字不超过2^32-1），记住了然后反着念出来(表示结束的数字0就不要念出来了)。这对小鱼的那点记忆力来说实在是太难了，你也不想想小鱼的整个脑袋才多大，其中一部分还是好吃的肉！所以请你帮小鱼编程解决这个问题。

输入输出格式

输入格式：

一行内输入一串整数，以0结束，以空格间隔。

输出格式：

一行内倒着输出这一串整数，以空格间隔。

输入输出样例

输入样例#1：

3 65 23 5 34 1 30 0

输出样例#1：

30 1 34 5 23 65 3

var

a:array[1..101]of longint;

n,g,i:longint;

begin

n:=1；//如果是0的话就不进循环了

while n<>0 do//当0时结束

begin

read(n);

inc(g);//记录个数

a[g]:=n;

end;

for i:=g-1 downto 1 do write(a[i],' ');//0不用输

end.