@Alisher_

Реализовать процедуру

процедура вставки (var p: pnode; n: целое число);

который может вставить элемент в двоичное дерево поиска. Если значение X содержится в узле N, то значения меньше X будут помещены в левое поддерево N, а значения больше X будут помещены в правое поддерево N.

Если вставляемый элемент уже присутствует в дереве, ничего не вставляйте и сообщите об этом в стандартный вывод. Например, если insert (8) определяет, что значение 8 уже находится в дереве, он должен написать строку duplicita 8 (по-чешски «duplicate 8») и выйти.

Процедура должна динамически выделять память для новых узлов.

Используйте эту процедуру, чтобы написать программу, которая читает последовательность целых чисел из стандартного ввода, заканчивающуюся 0. Вставьте эти целые числа в двоичное дерево поиска, используя процедуру insert. Не вставляйте завершающий 0.

Когда вся последовательность будет вставлена, запишите двоичное дерево, один уровень за раз, начиная с корня. Запишите каждый уровень в отдельной строке, с отдельными значениями, разделенными запятыми.

пример

вход:

5 20 27 4 11 17 4 13 5 1 0

выход:

дубликат 4
дубликат 5
5,
4,20,
1,11,27,
17,
13,

0

@ololo111

сложна

0