Можете решить задания по информатике по созданию ссылки и количество путей в графе https://kpolyakov. spb. ru/school/ogetest2020/b7.htm
https://kpolyakov. spb. ru/school/ogetest2020/b9.htm

program xxx;

    var i, k, d, e, s : integer;

begin

  k: =0;

  for i: = 10 to 99 do

    begin

          d: = i div 10;

          e: = i mod 10;

          s: =d + e;

          if i mod s = 0 then k: =k+1

    end;

    write ('кол-во чисел которые делятся на сумму своих цифр=', k);

    readln

end.

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа

7680*90=691200

691200/16=43200

43200/400=108 страниц

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.