Решить первую задачу можно по этому примеру, просто поменяв цифры на свои ..
Решение:
Решаем задачу по формуле N = 2i
N- мощность алфавита
i - вес одного символа (в битах)
Первый текст:
N = 16, следовательно i = 4 (16 = 24)
Второй текст:
N = 256, следовательно i = 8 (256 = 28)
Теперь нам нужно понять во сколько раз кол-во информации во втором тексте больше, чем в первом.. Это очень просто. Если в первом текст 4 бита на символ, а во втором - 8 бит на символ, также из условия известно, что количество символов одинаковое и в первом и во втором текстах. Делим 8 на 4 и получаем, что во втором тексте количество информации больше в 2 раза...
Ответ: в 2 раза
ответ получится такой же
Ответ:
col_el = int (input ())
ls = list (map (int, input ().split (maxsplit = col_el)))
s = 0
for i in range (len (ls)):
if i + 1 < len (ls) and ls [i] > ls [i + 1]:
s = s + 1
print (s)
Объяснение:
Надо просто найти количество всех случаев где Коля может переставить два числа местами.
<span>program axaxa;
var n,a,s:integer;
begin
readln(n);
s:=0;
while n>0 do
begin
a:=n mod 10;
s:=s+a;
n:= n div 10;
end;
writeln(s);
</span>end.
Var a,b,c: integer;
Begin
write('Ведите трёхзначное число: ');
readln (a);
b:=a div 100;
c:=a mod 100 div 10;
writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b)
End.
Var a,b,c,d: integer;
Begin
write('Ведите трёхзначное число: ');
readln (a);
b:=a div 100;
c:=a mod 100 div 10;
d:=a mod 10;
writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b,d)
End.
(PascalABCNET)
//PascalABC.NET 3.2, старой версии нет, не могу проверить
begin
var a: BigInteger := 1;
for var i := 1 to ReadInteger do
a *= i;
write(a)
end.