СРОЧНО!!! ПОЖАЛУЙСТО ПОМОГИТЕ! Я ХОЧУ СПАТЬ!Считая, что Земля — идеальная сфера с...

Question

СРОЧНО!!! ПОЖАЛУЙСТО ПОМОГИТЕ! Я ХОЧУ СПАТЬ!
Считая, что Земля — идеальная сфера с радиусом R = 6350 км, определить расстояние до линии горизонта от точки с высотой над Землей, равной 1, 2, ..., 10 км

Answer 1

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