Масса 8 литров бензина 5,68 кг. Цистерна имеет объем 500 м3. Хватит ли ее, чтобы вместить А т бензина? - Turbo Pascal
Формулировка задачи:
Масса 8 литров бензина 5,68 кг. Цистерна имеет объем 500 м3. Хватит ли ее, чтобы вместить А т бензина?
Решение задачи: «Масса 8 литров бензина 5,68 кг. Цистерна имеет объем 500 м3. Хватит ли ее, чтобы вместить А т бензина?»
textual
Листинг программы
var a: real; begin write('a = '); readln(a); writeln(5.68 / 8 >= a / 500); readln end.
Объяснение кода листинга программы
В данном коде происходит следующее:
- Объявляется переменная
a
типаreal
, то есть числовой с плавающей точкой. - Выводится сообщение
a =
и считывается значение переменнойa
с помощью функцииreadln
. - Вычисляется отношение 5.68 / 8, что равно 0.7095, и значение переменной
a
делим на 500. - Выводится результат сравнения полученного значения с 0.7095.
- Считывается следующее значение с помощью функции
readln
.