Выразите в паскалях следующие значения давления: 760 мм рт ст,380 мм рт ст, 190 мм рт ст

Предыдущий
вопрос Следующий
вопрос

procedure ConvertToPascal
va
pressure_mmHg, pressure_Pa: real
begi
pressure_mmHg := 760; // 760 мм рт с
pressure_Pa := pressure_mmHg * 133.322; // Конвертация в Паскал
writeln('Давление в Паскалях: ', pressure_Pa:0:2);

pressure_mmHg := 380; // 380 мм рт с
pressure_Pa := pressure_mmHg * 133.322; // Конвертация в Паскал
writeln('Давление в Паскалях: ', pressure_Pa:0:2);

pressure_mmHg := 190; // 190 мм рт с
pressure_Pa := pressure_mmHg * 133.322; // Конвертация в Паскал
writeln('Давление в Паскалях: ', pressure_Pa:0:2)
end;

begi
ConvertToPascal
end.