VB.
Dim n As Integer
n = InputBox("Введите число:")<span>
MsgBox("В числе " & Len(CStr(n)) & " цифр.")
Pascal.
</span><span>Program N;
Var
I, S, N : Longint;
Begin
Writeln('Введите число'); Readln(I);
N:=1;
While I > 10 DO
BEGIN
I:=I DIV 10;
Inc(N);
end;
// c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Write('</span>"В числе цифр "<span> = ',N);
Readln; end.
</span>
<em>Помог? Жми <u>Лучший!</u></em>
1 час 2 поциента . всего 9 поциентов в 11 30 а в 12, 10
По логике:
Ветер гуляет по морю
Ветер подгоняет кораблик
"Hello, World!" - 13 символов
1 символ в ASCII - 7 бит
13 * 7 = 91 бит = 11 байт 3 бит