Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Составьте программу вычисления работы,совершаемой при поднятии гвоздика массой 100 мг на стол, высота которого 75 см.

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

Var
m,g,h,A:real;
Begin
g:=9.8;
Writeln(Введите массу и высоту через пробел:);
Readln(m,h);
A:=m*g*h;
Writeln(Затраченная работа:,A, Дж);
end.

PS Массу в кг, а высоту в метрах вводить.