Нужно помочь, не могу понять как делать, программирование паскаль не для меня ,...

Question

Нужно помочь, не могу понять как делать, программирование паскаль не для меня , помогите
диаметр колеса автомобяля хсм колесо требует замены через н оборотов.
Какое расстояние проедет автомобиль до замены колеса?

Comments

Можешь написать мне в личку, позже решу, если не срочно

Answer 1

Var
  d, n, s: real;

begin
  Write('Диаметр колеса, см -> ');
  Readln(d);
  Write('Количество оборотов колеса -> ');
  Readln(n);
  Write('Ресурс пробега колеса равен ', n * Pi * d*1e-5:0:0, ' км')
end.

Тестовое решение:

Диаметр колеса, см -> 57.7
Количество оборотов колеса -> 2.1e7
Ресурс пробега колеса равен 38067 км