Проедет ли колесо заданного диаметра X километров, если требуется его замена через N оборотов - Pascal
Формулировка задачи:
Челы напишите код на PascalABC.NET ,буду очень благодарен ,очень срочно нужно .
(Диаметр колеса автомобиля 80 см. Колесо потребует замены через 200 000 оборотов. Определить, доедет ли колесо от города Саратова до города N-ска, если расстояние между ними x километров)
Решение задачи: «Проедет ли колесо заданного диаметра X километров, если требуется его замена через N оборотов»
textual
Листинг программы
const L=502.64; begin WriteLn('Колесо ', ReadLnReal('Расстояние от Саратова до N-ска (км) : x =') > L ? 'НЕ ' : '', 'доедет.'); end.
Объяснение кода листинга программы
- Создается константа
L
и ей присваивается значение502.64
- Выполняется команда
WriteLn
, которая выводит на экран текст, считывает введенное водключение с клавиатуры с помощьюReadLnReal('Расстояние от Саратова до N-ска (км) : x =')
, и проверяет, если значение больше, чемL
, то выводитсяНЕ
иначе -доедет
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д