Информатика, опубликовано 2018-08-22 22:19:47 by Гость

Написать программу, которая определяет силу всемирного тяготения. паскаль

Ответ оставил Гость

Uses crt;
var f,y,m1,m2,r:real;
begin
clrscr;
y:=6.67*exp(-11*ln(10));
WriteLn(Введите массу первого тела в кг);
Readln(m1);
WriteLn(Введите массу второго тела в кг);
Readln(m2);
WriteLn(Введите расстояние между центрами масс тел в метрах);
Readln(r);
f:=y*(m1*m2/sqr(r));
WriteLn(Сила равна,f:6:2, Ньютона(ов));
readln;
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.