小鱼的数字游戏

小鱼的数字游戏

题目描述

小鱼最近被要求参加一个数字游戏，要求它把看到的一串数字（长度不一定，以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
 i,j,k,l:longint;
 a:array[0..100000]of longint;
begin
 k:=1;
 l:=0;
 while k<>0 do//碰到0就不输入
  begin
   read(k);
   inc(l);
   a[l]:=k;
  end;
 for i:=l-1 downto 1 do//倒着输出
  write(a[i],' ');
end.