pascalABC.NET. Как можно узнать количество элементов в множестве ( БЕЗ foreach ) ?

[Serge_Bliznykov]

Сообщение от sohibnut

no tam yest for
mne nujna bez nikakova cikla!nikakova!!!!!!

где здесь FOR ???

var b : set of int64;
  count : integer;
begin 
  b:=[];   include(b, 1);  include(b, 2);  println(b);

  if b=[] then
     count := 0
  else     
     count := b.ToString.Where(v -> v=',').Count()+1;  
  
  WriteLn('Размерность множества = ',count)
end.

[sohibnut]

Сообщение от Serge_Bliznykov

так я же привёл код выше.
Есть сомнения или проблемы?

проверил.
вроде бы работает:

var b : set of int64;
  count : integer;
begin 
  b:=[]; 
  for count := 1 to Random(10) do include(b, Random(100000));
  println(b);

  if b=[] then
     count := 0
  else     
     count := b.ToString.Where(v -> v=',').Count()+1;  
  
  WriteLn('Размерность множества = ',count)
  
end.

спосибо вам!!

[Plague]

	
	
begin
  var b := new HashSet<int64>;
  loop Random(10) do 
    b.Add(Random(10));
  Print(b.Println.Count);
end.