Var
n, cnt: integer;
begin
write('Введите число: ');
read(n);
repeat
inc(cnt);
n := n div 10;
until n = 0;
writeln('Количество цифр в числе: ', cnt);
end.
Формула для решения подобных задач:
N=2^j
N=2^4
N=16
42 (8) = 100 010 (2)
0010 0010 (2) = 22 (16)
Ответ:
1.ЕRP-консультант
2.ЕRP-программист
3.IT-евангилист
4.WEB-дизайнер
<em>5.</em><em>W</em><em>E</em><em>B</em><em>-</em><em>п</em><em>р</em><em>о</em><em>г</em><em>р</em><em>а</em><em>м</em><em>м</em><em>и</em><em>с</em><em>т</em>