Проедет ли колесо заданного диаметра X километров, если требуется его замена через N оборотов - Pascal

Формулировка задачи:

Челы напишите код на PascalABC.NET ,буду очень благодарен ,очень срочно нужно . (Диаметр колеса автомобиля 80 см. Колесо потребует замены через 200 000 оборотов. Определить, доедет ли колесо от города Саратова до города N-ска, если расстояние между ними x километров)

Решение задачи: «Проедет ли колесо заданного диаметра X километров, если требуется его замена через N оборотов»

Листинг программы

const L=502.64;
begin
  WriteLn('Колесо ', ReadLnReal('Расстояние от Саратова до N-ска (км) : x =') > L ? 'НЕ ' : '', 'доедет.');
end.

Объяснение кода листинга программы

Создается константа L и ей присваивается значение 502.64
Выполняется команда WriteLn, которая выводит на экран текст, считывает введенное водключение с клавиатуры с помощью ReadLnReal('Расстояние от Саратова до N-ска (км) : x ='), и проверяет, если значение больше, чем L, то выводится НЕ иначе - доедет.

Оцени полезность:

7 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы