var y,x:real;
begin
write('Введите x = ');
readln(x);
if (x<=0) then y:=exp(x) else if x>1 then y:=ln(x) else y:=0;
writeln('y = ',y:0:2);
end.
23 символа умножаешь на 8 битов
Получается 23*8=182 бита или 23 байта. (Один символ=1 байт=8 битов)
Program asd;
Const n=30;
var M:array[1..n] of integer;
i,k,s:integer;
BEGIN
Writeln('Заполните массив: ');
For i:=1 to n do
begin
Readln(M[i]);
end;
s:=0;
For i:=1 to n do
begin
If (M[i] mod 2=0) then
begin
inc(k);
s:=s+M[i];
end;
If (s mod 2=2) and (k mod 2=0) then
Writeln('Верно.')
else Writeln('Не верно');
end;
<span>END.</span>
На сколько я знаю, надо просто все перемножить
Ответ: 01
Объяснение:
Задача на условие Фано. Условие формулируется так: ни один код символа не может быть началом другого.
То есть, если используют код для К - 10, то для другой буквы код 100 использовать нельзя, т.к. 10 является началом 100.
В задаче просят подобрать минимально допустимый код для Г. Рассмотрим возможные коды, с учетом занятых:
А = 00
01 - минимально возможный
Б = 11
В = 100
001
и т.д.
Ответ: 01