С ПЕРЕВОДОМ ИЗ СИСТЕМ В СИСТЕМЫ

n = 64

2^i = n

2^i = 64

i = 6 бит

ответ. 6 бит.

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

в двоичной 1000001

в восмеричной 101

в шеснадцатеричной 41

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.