РЕШИТЕ В ПАСКАЛЕ: Найти силы притяжения F:=G*m1*M/R^2 двух тел, если G=9.81 м/с2,...

Question

РЕШИТЕ В ПАСКАЛЕ: Найти силы притяжения F:=G*m1*M/R^2 двух тел, если G=9.81 м/с2, M=5,94х1024 кг, m1=500кг, а расстояние R=2,3, …10 км.

Answer 1

Const 
  G = 9.81;
  M = 5.94*1024;
  m1 = 500;
var r: integer;
  f: real;
begin
  for r := 2 to 20 do  begin
    f := G * m1 * M / sqr(R*1000);
    writeln (r:2, 'км => ', f:5:5, ' Н');
  end;
end.