18 lines
368 B
ObjectPascal
18 lines
368 B
ObjectPascal
// Ïðèìåð ðåøåíèÿ çàäà÷è Dynamic2 èç ýëåêòðîííîãî çàäà÷íèêà Programming Taskbook
|
|
uses PT4;
|
|
|
|
var p1,p2: PNode;
|
|
|
|
begin
|
|
Task('Dynamic2');
|
|
read(p1);
|
|
var n := 0;
|
|
while p1 <> nil do
|
|
begin
|
|
write(p1^.Data);
|
|
n += 1;
|
|
p2 := p1; { ñîõðàíÿåì àäðåñ òåêóùåãî ýëåìåíòà }
|
|
p1 := p1^.Next; { è ïåðåõîäèì ê ñëåäóþùåìó ýëåìåíòó }
|
|
end;
|
|
write(n, p2);
|
|
end. |