с решением самостоятельной работы по информатике. Вопросы в приложениях

Первая (N - количество чисел в исходной последовательности):

const N = 5;
var number, i, count : integer;
begin
    count := 0;
    for i := 1 to N do
    begin
        write('Input number: ');
        readln(number);
        if (number mod 5 = 0) and (number mod 7 <> 0) then
            count := count + 1;
    end;
    writeln('Count: ',count);
    readln;
end.

Вторая:

const N = 5;
var number, i, count : integer;
begin
    count := 0;
    for i := 1 to N do
    begin
        write('Input number: ');
        readln(number);
        if (number < 0) then
            writeln('Square of ',number,' equals ',number*number);
    end;
    readln;
end.

А) двоичная - 1110010.00111001101
восьмеричная - 162.16320047244
шестнадцатеричная - 72.39A02752546
b) 316.8125
668.625
691.953125
c) 615.75 (10) + 269.625 (10) =1101110101.011 (2)
186.4375 (10) + 887.25 (10) =2061.54 (8)
101.125 (10) + 970.4375 (10) = 42F.9 (16)
d) 950.1875(10)-254.25(10)=1010110111.1111(2)
752.1875 (10) - 654.5 (10) = 141.54 (8)
51.375 (10) - 17.25 (10) = 22.2 (16)
e) 7.625(10)*5(10)=100110.001 (2)
84.375(10)*31(10)=5067.5(8)
420(10)*243(10)=18EAC(16)
6. Очевидно, что система позиционная.
Тогда 1 стоит на 2-ой позиции (начиная с нулевой) .
Тогда 49 = x^2
ответ - X = 7