18 lines
469 B
ObjectPascal
18 lines
469 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. |