题目描述
输入格式
输出
样例输入
样例输出
输入一个正整数序列,遇负数时停止,建立一个线性链表存储读入的数据,将各个元素按逆序输出。
输入格式
输出
样例输入
1 2 3 4 5 -1
样例输出
5 4 3 2 1
program 26751;
type point=^node;
node=record
date:integer;
next:point;
end;
var head,p:point;i:integer;
begin
head:=nil;
read(i);
while i<>-1 do
begin
new(p);
p^.date:=i;
p^.next:=head;
head:=p;
read(i);
end;
while p<>nil do
begin
write(p^.date,' ');
p:=p^.next;