1. укажите наибольшее трёхзначное шестнадцатеричное число, двоичная запись которого содержит 5 единиц. в ответе запишите только само восьмеричное число, основание системы счисления указывать не нужно.
2. сколько существует натуральных чисел x, для которых выполнено неравенство 11010001(2) < x < df(16)? в ответе укажите только количество чисел, сами числа писать не нужно.
3. найдите количество "3" в 4-ной сс. 3∙16(8) – 4(5) + 3. в скобках указано основание.
4. найдите количество "4" в 5-ной сс. 4∙125(4) – 25(4) + 9. в скобках указано основание.

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

как-то

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end. 

режим разметки страницы,режим структуры,режим чтения.режим веб документа-

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