Програма в паскаль ввести ціле число і визначити, чи правда, що в його записі є дві однакові цифри. приклад: ввести ціле число: ввести ціле число: 1234 1224 ні. так.

Есть много разных способов решения этой . например: var n: integer; b: boolean; m: set of 0..9; begin write('n='); readln(n); m: =[]; b: =false; while (n> 0) and not b  do   if n mod 10 in m then b: =true else begin m: =m+[n mod 10]; n: =n div 10; end; if b  then writeln('да')  else writeln('нет'); end. пример: n=123432 давот ещё вариант: var n,m,n1,m1,b: integer; beginwrite('n='); readln(n); b: =0; while n> 0 do  begin  m: =n mod 10;   n: =n div 10;   n1: =n;   while n1> 0 do    begin    m1: =n1 mod 10;     if m=m1 then b: =1;     n1: =n1 div 10;       end;   end; if b=1 then writeln('да') else writeln('нет'); end.

n = 64

2^i = n

2^i = 64

i = 6 бит

ответ. 6 бит.

51 в десятой сс=110011 в двоичной сс

85 в дес сс=1010101 в двоичной сс

110011+1010101=10001000

110011-1010101=1111111111011110

вроде так

если ответ нужен в десятичной сс, то просто переведи