
Zhelachve
5 год назад
Составьте программу Паскаль.

ОТВЕТЫ

Irma Marika
Oct 24, 2020
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.
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.
41
Смежные вопросы: