Составьте программу вычисления работы,совершаемой при поднятии гвоздика массой 100 мг на стол, высота которого 75 см.
Ответы
Ответ дал:
0
Var
m,g,h,A:real;
Begin
g:=9.8;
Writeln('Введите массу и высоту через пробел:');
Readln(m,h);
A:=m*g*h;
Writeln('Затраченная работа:',A,' Дж');
end.
PS Массу в кг, а высоту в метрах вводить.
m,g,h,A:real;
Begin
g:=9.8;
Writeln('Введите массу и высоту через пробел:');
Readln(m,h);
A:=m*g*h;
Writeln('Затраченная работа:',A,' Дж');
end.
PS Массу в кг, а высоту в метрах вводить.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад
10 лет назад