Помогите пожалуйста! Напишите программу определения объёма, который при нормальных...

0 голосов
32 просмотров

Помогите пожалуйста! Напишите программу определения объёма, который при нормальных условиях займёт кислород, имеющий массу m граммов по формуле V=m/R, где R=1,42897 - плотность кислорода.


Информатика (20 баллов) | 32 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Var v,m:real;
begin
write('Введите массу кислорода: ');
readln(m);
v:=m/1.42897;
writeln('Объем кислорода массой ',m,' г равен ',v:0:4);
end.

(4.3k баллов)