Leciono #3

// лекция 04-08-2024
##
uses school;
var x := 525;
x.IsPrime.Println;
var d := x.Divisors;
Println(d[1:^1],d[1:^1].Sum );
var f := x.Factorize;
Println(f, f.Distinct)
//
##
uses school;
var x := 12bi**45 + 23bi**4 - 678;
Println(x,TypeName(x))
{Println(Bin(x), Oct(x), Hex(x));
var t := ToBase(x,2);
Println(t);
var z := '123ABCXYZ';
var d := Dec(z,36);
Println(d);}
//
## uses school;
var x := 75;
var m := x.Digits(75);
Println(ToBase(x,5), m, m[^2]);
//
## uses school;
for var i := 250201 to 250800 do
  begin
    var d := i.Divisors[1:^1];
    if d.Count > 0 then
      begin
        var s := d.Min + d.Max;
        if (s mod 123 = 17) then Println(i, s);
      end;
  end;