ПО по распознаванию текста используется при больших объемах текста , который есть только в виде скана/графического файла. Переводит информацию из графического вида в оцифрованный текстовый.
Поскольку все делается автоматически, то экономит кучу человекочасов набора текста
Var
n,S:integer;
Begin
S:=0;
Write('n = ');ReadLn(n);
repeat
n:=n div 10;
S:=S+n mod 10;
until n = 0;
WriteLn(S)
End.
Это??????????????????????????:)