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

Узнай цену своей работы

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

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

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

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

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

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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

7   голосов , оценка 4 из 5
Похожие ответы