小鱼的数字游戏的ACC程序和解释PASCAL。

               小鱼的数字游戏的程序和解释。

 

题目描述

小鱼最近被要求参加一个数字游戏，要求它把看到的一串数字（长度不一定，以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 

n,i,ji:longint; 

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

begin//开始。

  ji:=0;//赋初值。

  Repeat//一种循环变量------------—

    read(n); //输入数字           |

    inc(ji);//做下标              |

    a[ji]:=n;//赋值               |

  until n=0;//直到n=0就结束。《— | 

  for i:=ji-1 downto 1 do//反转输出。

    write(a[i],' ');//反转输出。

end.//结束。