Определить, есть ли среди цифр заданного целого трехзначного числа одинаковые.

Var   a: word;   b, c, d: byte; begin   readln(a);   b : = a mod 10;   c : = a div 10 mod 10;   d : = a div 100;   writeln(b, ' ', c, ' ', d);   if ((b in [c, d]) or (c in [b, d]) or (d in [b, c])) then     writeln('yes, there are')   else     writeln('no, there aren"t'); end.

#include < iostream> using namespace std; int main(){       int i,n; double a,p;       cin> > n> > a; cout< < "\n";       p=1;       for(i=1; i< =n; i++) {p=p*a; cout< < i< < " "< < p< < "\n"; }       } тестовое решение: 5 1.8 1 1.8 2 3.24 3 5.832 4 10.4976 5 18.8957 process exited after 3.788 seconds with return value 0 для продолжения нажмите любую клавишу . .

101101 - переводим в 16-ричную используя таблицу дв      шестн0000  00001  10010  20011  30100  40101  50110  60111  71000  81001  91010  10 (а)1011  11 (в)1100  12 (с)1101  13 (d)1110  14 (е)1111  15 (f)собственно двоичное число 101101 справа налево делим по 4 цифры -> ->   0010 и 1101 -> по таблице смотри и получаем 2d в 16-ричной ccтеперь переводим в 10-ую из 16-ричной 2d = 16^1*2 + 16^0*13 = 32 + 13 = 45 отв.: 2d и 45 далее число 101101 в десятичную = 1*2^5+0+1*2^3+1*2^2+0+1*2^1 = 45 и из десятичной в восьмеричную 45/5=5(остаток 5)  -> 45 в восьмеричной = 55 или 055