Question

Считая, что Земля - идеальная сфера с радиусом R=6350 км, определить расстояние до линии горизонта от точки с заданной высотой над Землей

Answer 1

const R = 6350;var h,s,d:real;beginwrite('Введите высоту h в метрах');Readln(h);s:=sqrt(sqr(h/1000+R)-sqr(R));write('расстояние до линии горизонта',s:9:2, 'km');end.