<вещественное>::=<целое> <e> <масштабный множитель> | <целое> <.> <целое без знака> | <целое> <.> <целое без знака> <e> <масштабный множитель>
1. Найдем длину окружности обруча: C=L-D
2. Из формулы длины окружности C=2πR найдем радиус: R=C/(2π)
R=(L-D)/(2π) - это формулу и надо запрограммировать.
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (L,D):=ReadReal2('Введите длину полосы L и припуск на соединение D:');
Writeln('Радиус обруча будет равен ',(L-D)/(2*Pi):0:3)
end.
<u>Пример</u>
Введите длину полосы L и припуск на соединение D: 6 0.7
Радиус обруча будет равен 0.844
50 x 80 x 200 + 800 x 600 x 4 x 10 = 20 000 000 bytes = 19 531.25 kB = 19 MB 1
1)Органолептический
2)Тактильный
3)Визуальный
4)Звуковой