Помогите составить программу

В озеро, имеющее среднюю глубину L м и площадь поверхности S кв. км, бросили кристалл поваренной соли массой 0,05 г. Сколько граммов соли оказалось бы в напёрстке воды обьёмом 2 см3, зачёрпнутой из озера. если полагать, что соль растворилась равномерно во всём обьёме вода?

Question

Информатика

Евстахий

23 февраля, 11:15

Помогите составить программу

В озеро, имеющее среднюю глубину L м и площадь поверхности S кв. км, бросили кристалл поваренной соли массой 0,05 г. Сколько граммов соли оказалось бы в напёрстке воды обьёмом 2 см3, зачёрпнутой из озера. если полагать, что соль растворилась равномерно во всём обьёме вода?

+2

Ответы (1)

Знаешь ответ?

Зара · Answer 1

Var

l, s, x: real;

begin

writeln ('Введите площадь и глубину озера:');

read (s, l);

x:=0.0000001 / (s*l);

writeln ('Соли в наперстке объемом 2 см^3: ', x,' г');

end.