Написать программу, реализующую ввод числа и определение его длины.

Var a,n: integer; begin readln(a); n: =0; while a> 0 do begin a: =a div 10; n: =n+1; end; writeln(n); end.

Ну так-то вроде просто, уравнение. объем ролика w мбит, при передаче каждые 6 бит превращаются в 8 бит. объем вырастает до 8/6*w = 4w/3 мбит. 1-ая половина ролика, то есть 2w/3 мбит, была передана со скор. v мбит/сек. 2-ые 2w/3 мбит были переданы со скоростью v+3 мбит/сек. общее затраченное время t1 = 2w/(3v) + 2w/(3v+9) сек. если бы он скачал ролик с файлового сервера, со скоростью v-1,5 мбит/с, то объем ролика был бы w, потому что при файловой передаче нет преобразования каждых 6 бит в 8. затраченное время было бы t2 = w/(v-1,5) сек. и оно в 2 раза больше. 2*(2w/(3v) + 2w/(3v+9)) = w/(v-1,5) делим все на w, получаем 4/(3v) + 4/(3v+9) = 1/(v-1,5) избавляемся от знаменателей 4(3v+9)(v-1,5) + 4*3v(v-1,5) = 3v(3v+9) раскрываем скобки 12v^2 + 36v - 18v - 54 + 12v^2 - 18v = 9v^2 + 27v до квадратного уравнения 15v^2 - 27v - 54 = 0 5v^2 - 9v - 18 = 0 d= 9^2 + 4*5*18 = 81 + 360 = 441 = 21^2 v1 = (9 - 21)/10 < 0 v2 = (9 + 21)/10 = 3 мебибит в сек