Question

Составьте программу Паскаль.

Answer 1

program sila;
var m1,m2,G,F,r:real;
begin 
  writeln('Введите G'); readln(G);
  writeln('Введите m1'); readln(m1); 
  writeln('Введите m2'); readln(m2);
  writeln('Введите r'); readln(r);
  F:=(G*m1*m2)/(r*r); 
  writeln('Sila =',F)
end.