Определи основание системы счисления числа 2638.​

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.

var a: integer; beginreadln(a); write (a div 10); end.

4)¬a λ b λ ¬c: только это логическое выражение будет равносильно начальному