Var n,S,P:integer;
Begin
Write('n = ');ReadLn(n);
P:=1;
S:=0;
While n > 0 do
Begin
P:=P*(n mod 10);
S:=S+n mod 10;
n:=n div 10
End;
WriteLn('S - P = ',S-P)
End.
var
a, b, c: real;
begin
Read(a, b, c);
Write((ord(a > 0) + ord(b > 0) + ord(c > 0)) = 1)
end.
Ответ:
1байт=8 битва=>по формуле N=2^i получаем 2^8= 256 символо
N=2^i , где N мощность алфавита
I количество информации, которую несёт один символ
Бит , байт, килобайт , мегабайт , гигабайт .
Объяснение:
Для кодирования одного значка необходимо log(2)13 ≈ 4 бита.Объём сообщения <span>длиной в 666 символов</span>: 666*4 бит = 666*4/8 байт = 333 байта.
===== PascalABC.NET =====
begin
var n := ReadInteger;
Println(n div 100 + n mod 10)
end.