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

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

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


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

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

Одаренный (4.3k баллов)
10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей