Var n,k:integer;
begin
read(n);
while (n>0) do begin
k+=1;
n:=n div 10;
end;
writeln(k);
<span>end.</span>
54 Кбайт = 54*1024*8 бит
Время передачи при скорости 2^13 бит/сек =
54*1024*8/2^13 = 54 сек
Стоимость = 54*5 = 270 коп
Время передачи при скорости 2^10 бит/сек =
54*1024*8/2^10 = 432 сек
Стоимость = 432*5 = 2160 коп
Переплата = 2160-270 = 1890 коп.
Количество цветов = 2^12 = 4096
1) <; <; =; <
2)1025 бит; 1 Кбайт; 1025 байт; 1023 Кбайт ;1 Мбайт; 1 Тбайт