Надо найти наибольшее число?
Program LOL2016;
var n,s,r:integer;
begin
readln(n);
s:=0;
while(n <> 0) do begin
r:=n mod 10;
s:=s+r;
n:=n div 10;
end;
writeln(s);
end.
<span>
если что то не понятно просто спроси и я обьясню :)</span>
<span>За единицу количества информации принимается такое количество информации, которое содержит сообщение, уменьшающее неопределенность в два раза. Такая единица названа "бит". 2 = 2 ^ 1 , 1 бит инф</span>
Квадрат имеет площадь больше