A = N^i
N - количество букв в алфавите( бит принимает всего два значения, например: один и ноль, поэтому N = 2);
i - длина слова (i = 1, 2, 3, 4)
A - количество слов заданной длины(в данном случае, количество цветов, то есть A - количество комбинаций)
A = 2^1 = 2 цвета
A = 2^2 = 4 цвета
A = 2^3 = 8 цветов
A = 2^4 = 16 цветов
Var a, b : string; i, s, n: integer; begin n:=0; writeln('Введите слово'); readln(a); s:=length(a); writeln('Слово = ',a); writeln('Количество букв: ', s); end.
2. 128 = 10000000
256 = 100000000
512 = 1000000000
<span> 1024 = 1000000000
</span>
3. 1000001 = 65
10000001 = 129
<span> 100000001 = 257
</span> 1000000001 = 513
<span>4.
101 = 5 </span>
11101 = 29
101010 = 42
100011 = 35
<span> 10110111011 = 1467
</span>
5.
2= 10
7= 111
17= 10001
68= 1000100
315= 100111011
765= 1011111101
2047= 11111111111
<span>6.
11+1=100
111+1=1000
1111+1=10000
11111+1=100000
</span>
<span>7. </span>
111*10=1110
111*11=10101
1101*101=1000001
<span> 1101*1000=1101000</span>
Графический интерфейс и текстовый
1)
var
a, b, c, d: integer;
begin
readln(a);
b := a div 100; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
writeln('Сумма цифр равна: ', b + c + d);
end.
2)
var
a, b, c, d, p: integer;
begin
readln(a);
b := a div 100; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
p := d * 100 + c * 10 + b;
writeln('Наоборот: ', p);
end.
3)
var
a, b, c, d, e: integer;
begin
readln(a);
e := a div 1000; { тысячи }
b := (a div 100) mod 10; { сотни }
c := (a mod 100) div 10; { десятки }
d := a mod 10; { единицы }
writeln('Сумма: ', e + b + c + d);
writeln('Произведение: ', e * b * c * d);
end.
