Сөздердегі ақпарат көлемін санап,саластар.Қай сөзде ақпарат көлемі үлкен? Информатика және Екілік ақпарат

информатика сөзінде ақпарат көлемі үлкен.

Сделать эту можно двумя способами. первый - чисто арифметический. второй - более хитрый, через операции над строками. мы пойдем вторым путем, он короче и практичней, такой код будет требовать меньше ресурсов машины для реализации (что незаметно в таких маленьких , но довольно критично в реальной жизни, поэтому учимся писать дальновидные коды). var n: longint; function mindigit(n: longint): integer; var s,a: string; c,i: integer; begin   str(n,s);   a: =s[1];   for i: =2 to length(s) do     if s[i]< a then a: =s[i];   val(a,n,c);   mindigit: =n; end; function maxdigit(n: longint): integer; var s,a: string; c,i: integer; begin   str(n,s);   a: =s[1];   for i: =2 to length(s) do     if s[i]> a then a: =s[i];   val(a,n,c);   maxdigit: =n; end; begin   readln(n);   writeln(mindigit(n),' ',maxdigit(n)); end.по факту переменную "c" можно убрать из функций и использовать вместо нее уже не нужную в конце "i", таким образом избавившись от одной переменной. но это не принципиально на самом деле, к тому же  так понятней, какая переменная за что отвечает.