var x, L, M: integer;
begin
readln(x);
L := 0;
M := 0;
while x > 0 do
begin
L := L + 1;
if x mod 2 = 0 then
M := M + (x mod 10) div 2;
x := x div 10;
end;
writeln(L);
writeln(M);
end.
555 16 вроде би посмотри в Googl
Символы, набранные с использованием кодировки Unicode, кодируются 16 битами каждый. Таким образом, указанный текст будет весить 224 бита или 0,028 килобайт.
1) log2(256) = 8 бит = 1 байт на символ.
число строк равно число символов разделить на число символов в строке:
(3420 / 1) / 38 = 90 строк
2) 75 байт / 120 = 75 * 8 бит / 120 = 5 бит на символ
алфавит содержит не более
различных символов