Определить, хватит ли цистерны, чтобы вместить X тонн бензина - Turbo Pascal
Формулировка задачи:
Помогите пожайлуйста решить задачу через If и THEN :
Масса 8 литров бензина 5,68 кг. Цистерна имеет обем 500 м^3. Хватит ли её, чтобы вместить X тон бензина ?
Решение задачи: «Определить, хватит ли цистерны, чтобы вместить X тонн бензина»
textual
Листинг программы
var
x,a: real;
Begin
read(x);//если х вводим в кг
a:=x*8/5.68;//в литрах
if a<=((5.68/8)*500*1000) then //сравниваются значения в литрах
writeln('Xватит')
else writeln('Не хватит')
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д