Интернет вреден для глаз но при этом можно узнать много полезной информаций а если сидеть по 15 мин.вдень не чего не встанет можночитать книги проходить тесты и естественно поиграть в логические игры
Var
n,s,k:integer;
begin
Write('n='); Read(n);
s:=0; k:=0;
while n>0 do begin
s:=s+n mod 10;
n:=n div 10;
k:=k+1
end;
Writeln('Разрядность ',k,', сумма цифр ',s)
end.
<u>Пример</u>
n=142321
Разрядность 6, сумма цифр 13
К = 800*600
v = 14400 бит/с
t = 9 минут = 9*60 = 540 сек
I = v*t = 540*14400 = 7 77600
I = K*i
составляем дробь
i = I/K = (540*14400) / (800*600) = сокращаем = 16,2
Переводим 1100011 и у нас получается 99