Запишите в десятичной системе счисления следующие числа: а2 =10111, а8 =447, а16 =45a

A2=10111=(1*2^4)+(0*2^3)+(1*2^2)+(1*2^1)+(1*2^0)=16+0+4+2+1=23 в десятичной; a8=447=(4*8^2)+(4*8^1)+(7*8^0)=256+32+7=295 в десятичной; а16=45a=(4*16^2)+(5*16^1)+(10*16^0)=256*4+16*5+10=1024+80+10=1114.

Program divisors; //вообще ничего не делает(аля название программы) var num,divisor,i,sum: longint; //описываем переменные типа longintbegin//начало программы write('vvedite chislo: '); //выводим текст readln(num); //считываем число write('vvedite delitel: '); //выводим текст read(divisor); //считываем заданное число(будем использовать при поиске делителей больше заданного) sum: =0; //зануляем переменную(изначально равна нулю, но на всякий случай ; ) от с++)    for i: =1 to num do //цикл от 1 до числа(можно оптимизировать идя до корня из num)    begin//начало цикла      if num mod i = 0 then//если на очередном шаге остаток от деления числа на i равен нулю      begin//начало условия        write(i,' '); //выводим делитель        sum: =sum+i; //суммируем      end; //конец условия    end; //конец цикла    writeln(); //переходим на следующую строку    writeln(sum); //выводим сумму    for i: =1 to num do//аналогично выше    begin      if (num mod i = 0) and (i mod 2 = 0) then // если число делитель и делится на 2      begin        write(i,' ');       end;     end;     writeln();     for i: =1 to num do    begin    if (num mod i = 0) and (i mod 2 = 1) then // не делится на 2    begin        write(i,' ');     end;     end;     writeln();     for i: =1 to num do    begin    if (num mod i = 0) and (i> divisor) then // больше заданного числа    begin        write(i,' ');     end;     end; end.//конец программы 

Program pr1; uses crt; var mas: array[1..20] of integer; i,v,a,k,x: integer; begin clrscr; writeln('vvedite a'); readln(a); writeln('vvedite k'); readln(k); for i: =1 to 20 do begin writeln('vvedite ',i,'-ji simvol'); readln(mas[i]); end; v: =0; x: =0; for i: =1 to 20 do begin if mas[i] mod 2< > 0 then v: =v+mas[i]; if mas[i]> a then writeln('> a ',i); if (mas[i] mod k=0) and (mas[i]> 0) then x: =x+1; end; writeln('summa nechetnih - ', v ); if x> 0 then writeln('true') else writeln('false'); end.