Масса кольца. Вычислить массу кольца по радиусу меньшей окружности R1, радиусу большей окружности R2 и толщине, равной k, сделанного из железа, плотность которого 7,8 г/см^3

Question

Информатика

Апраксин

30 июля, 21:21

Масса кольца. Вычислить массу кольца по радиусу меньшей окружности R1, радиусу большей окружности R2 и толщине, равной k, сделанного из железа, плотность которого 7,8 г/см^3

+1

Ответы (1)

Знаете ответ на вопрос?

Парфентий · Answer 1

Var r1, r2, k, m:real;

begin

write ('r1 = ') ; readln (r1) ;

write ('r2 = ') ; readln (r2) ;

write ('k = ') ; readln (k) ;

m:=pi * (r2*r2-r1*r1) * k*7.8;

writeln ('m = ', m:5:2) ;

end.

Пример:

r1 = 5

r2 = 7

k = 2

m = 1176.21