Запишите в развёрнутой форме числа: а) 143, 511{10}; б) 143511{8}; в) 143511{16}; г) 1435, 11{8}

A) 143,511(10) = 1*10^2+4*10^1+3*10^0+5*10^-1+1*10^-2+1*10^-3 б) 143511(8) = 1*8^5+4*8^4+3*8^3+5*8^2+1*8^1+1*8^0 в) 143511(16) = 1*16^5+4*16^4+3*16^3+5*16^2+1*16^1+1*16^0 г) 1435,11(8) = 1*8^3+4*8^2+3*8^1+5*8^0+1*8^-1+1*8^-2

(неясно-пиши в личку)

var a,b: integer;

is7: boolean;

begin

    readln(a);

    b: =0;

    is7: =false;

    while a < > 0 do

    begin

        b: =b+a mod 10;

        if a mod 10 = 7 then

            is7: =true;

        a: =a div 10;

    end;

    wrtieln('сумма цифр: ', b);

    write('цифра 7 ');

    if is7 then writeln('есть') else writeln('нет');

    readln;

end.