Яхочу спать! считая, что земля — идеальная сфера с радиусом r = 6350 км, определить расстояние до линии горизонта от точки с высотой над землей, равной 1, 2, 10 км

Const   r=6350; var   h,l: real; begin   write('введите значение высоты h (км): ');   readln(h);   writeln('до линии горизонта ',sqrt(sqr(r+h)-sqr(r)): 0: 3,' км');   readln; end.

program zadacha;

uses crt;

var otvet: real;

begin

otvet: = ((4785**45*45))/50;

writeln(otvet: 5: 5);

readkey;

end.

для начала переведем 100мбит в байты.

100мбитс=100*1024*1024/8=13107200 байт

  13107200 байт*1с =  13107200 байт.

ответ:   13107200 байт.