Динамические переменные - PascalABC.NET - Ответ 9938656

program tree;
 
type
  Pnode = ^TNode;
  TNode = record
    Info: real;
    left, right: PNode;
  end;
 
var
  f: text;
  b: real;
  root: PNode;
  d,Nom: integer;
 
function CountNthLevel(k, level : Integer; root : ^TNode) : Integer;
begin
  if root <> nil then
  begin
     if k = level then result := 1
     else if k > level then result := CountNthLevel(k, level + 1, root^.left) + CountNthLevel(k, level + 1, root^.right)
     else result := 0;
  end
  else result := 0;
end;
 
procedure Insert(x: real; var a: PNode);
begin
  if a = nil then
  begin
    New(a);
    with a^ do
    begin
      Info := x;Left := nil;right := nil;
    end;
  end
    else
  if x < a^.Info then
    Insert(x, a^.left)
  else Insert(x, a^.right);
end;
 
 
procedure Obhod(a: PNode);
var i:integer;
begin
  d += 1;
  if (a^.right <> nil) then
    Obhod(a^.right);
  for  i := 1 to d - 1 do
    write(f, '      ');
  writeln(f, a^.Info);
  if (a^.left <> nil) then
    Obhod(a^.left);
  d -= 1;
end;
 
begin
  assign(f, 'digits.txt');
  reset(f);
  root:=nil;
  while not eof(f) do
  begin
    read(f, b);
    Insert(b, root);
  end;
  close(f);
  assign(f, 'final.txt');
  rewrite(f);
  d := 0;
  Obhod(root);
  close(f);
 writeln(CountNthLevel(6, 0, root)); // для 5-го уровня
end.