1.Найдите минимальное основание системы счисления, если в ней записаны следующие числа: 10, 12, 1210, 102 2. Какое число идёт после 10100112
3. Переведите число 245 в двоичную систему счисления

1. 3

2. в троичной - 10100120, в десятичной - 2445

3. 11110101

Объяснение:

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

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.

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