malak54
2015-11-29, 22:32
program imprimer ;
type maillon= record
val:integer;
succ:^maillon;
end;
var l,p:^maillon;
begin
p:=l;
while p<>nil do
begin
writeln(p^.val);
p:=p^.succ;
end;
end.
salam :)
momik tas7i7 et mrc
type maillon= record
val:integer;
succ:^maillon;
end;
var l,p:^maillon;
begin
p:=l;
while p<>nil do
begin
writeln(p^.val);
p:=p^.succ;
end;
end.
salam :)
momik tas7i7 et mrc