program exp;
uses crt;
Type
PTree = ^TTree;
TTree = Record
Data : Integer;
Left, Right : PTree;
end;
var
Tree : PTree;
f1 :text;
i, sum, y1 : integer;
Procedure InsTree(var ANode : PTree; n : integer);
Begin
if ANode = nil then
Begin
new(ANode);
With ANode^ do
Begin
Left := nil;
Right := nil;
Data := n;
end;
end
else if n< ANode^.Data then
InsTree(ANode^.Left, n)
else InsTree(ANode^.Right, n);
End;
Procedure PrintList(ANode : PTree);
Begin
if ANode <> nil then
Begin
if (ANode^.Left=nil) and (ANode^.Right=nil) then
write(' ', ANode^.Data);
PrintList(ANode^.Left);
PrintList(ANode^.Right);
End;
End;
begin
clrScr;
InsTree(Tree, 1);
InsTree(Tree, 10);
InsTree(Tree, 8);
InsTree(Tree, 3);
InsTree(Tree, 12);
InsTree(Tree, 4);
InsTree(Tree, 7);
InsTree(Tree, 13);
InsTree(Tree, 2);
InsTree(Tree, 9);
InsTree(Tree, 11);
InsTree(Tree, 6);
InsTree(Tree, 5);
writeln('Листья дерева');
PrintList(Tree);
end.
cHJvZ3JhbSBleHA7Cgp1c2VzIGNydDsKClR5cGUKICBQVHJlZSA9IF5UVHJlZTsKICBUVHJlZSA9IFJlY29yZAogICAgRGF0YSA6IEludGVnZXI7CiAgICBMZWZ0LCBSaWdodCA6IFBUcmVlOwogIGVuZDsKCnZhcgogIFRyZWUgOiBQVHJlZTsKICBmMSA6dGV4dDsKICBpLCBzdW0sIHkxIDogaW50ZWdlcjsKClByb2NlZHVyZSBJbnNUcmVlKHZhciBBTm9kZSA6IFBUcmVlOyBuIDogaW50ZWdlcik7CkJlZ2luCiAgaWYgQU5vZGUgPSBuaWwgdGhlbgogIEJlZ2luCiAgICBuZXcoQU5vZGUpOwogICAgV2l0aCBBTm9kZV4gZG8KICAgIEJlZ2luCiAgICAgIExlZnQgOj0gbmlsOwogICAgICBSaWdodCA6PSBuaWw7CiAgICAgIERhdGEgOj0gbjsKICAgIGVuZDsKICBlbmQKICBlbHNlIGlmIG48IEFOb2RlXi5EYXRhIHRoZW4KICAgIEluc1RyZWUoQU5vZGVeLkxlZnQsIG4pIAogIGVsc2UgSW5zVHJlZShBTm9kZV4uUmlnaHQsIG4pOwpFbmQ7CgpQcm9jZWR1cmUgUHJpbnRMaXN0KEFOb2RlIDogUFRyZWUpOwpCZWdpbgogIGlmIEFOb2RlIDw+IG5pbCB0aGVuCiAgQmVnaW4KICAgIGlmIChBTm9kZV4uTGVmdD1uaWwpIGFuZCAoQU5vZGVeLlJpZ2h0PW5pbCkgdGhlbgogICAgICB3cml0ZSgnICcsIEFOb2RlXi5EYXRhKTsKICAgIFByaW50TGlzdChBTm9kZV4uTGVmdCk7CiAgICBQcmludExpc3QoQU5vZGVeLlJpZ2h0KTsKICBFbmQ7CkVuZDsKCmJlZ2luCiAgY2xyU2NyOwogIAogIEluc1RyZWUoVHJlZSwgMSk7CiAgSW5zVHJlZShUcmVlLCAxMCk7CiAgSW5zVHJlZShUcmVlLCA4KTsKICBJbnNUcmVlKFRyZWUsIDMpOwogIEluc1RyZWUoVHJlZSwgMTIpOwogIEluc1RyZWUoVHJlZSwgNCk7CiAgSW5zVHJlZShUcmVlLCA3KTsKICBJbnNUcmVlKFRyZWUsIDEzKTsKICBJbnNUcmVlKFRyZWUsIDIpOwogIEluc1RyZWUoVHJlZSwgOSk7CiAgSW5zVHJlZShUcmVlLCAxMSk7CiAgSW5zVHJlZShUcmVlLCA2KTsKICBJbnNUcmVlKFRyZWUsIDUpOwogIAogIAogIHdyaXRlbG4oJ9Cb0LjRgdGC0YzRjyDQtNC10YDQtdCy0LAnKTsKICBQcmludExpc3QoVHJlZSk7CiAgCmVuZC4=