Var
a,i,n:integer;
begin
readln(a);
while a>0 do
begin
inc(i);
a:=a div 10;
end;
writeln(i);
<span>end.</span>
Смотри Excel табличку. Так было быстрее всего!
Пояснение: A v B v C это логическое умножение, тоесть это выражение можно изменить на выражение вида: <span>A * B * C. А дальше ты работаешь как в обычной математике. Потом заменяешь значения 0 на 1 и 1 на 0.</span>
На сегодняшний момент существует множество операционных систем. Они могут различаться в написании кода, во внешнем виде, в предназначении. И из-за того, что их так много и все они различаются - я решил изучить эту тему.
1. Скорость поиска. Возможность организовать произношение слова. Возможность быстро переходить к синонимам. Многоязычность - способность переходить к другим языкам.
2. При наличии текста в формате, доступном для автоматического считывания программой перевода. При быстром создании технических "подстрочников", которые затем будут обработаны для получения литературного и иных форм перевода. При отсутствии знаний языка, перевод с которого нужен.