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
На паскале точно все запятые там и ; не помню но как-то так вот.
var a, b, c, d
begin
a:=2;
b:=3;
c:=4;
if a>7 then d:=b + c
writeLn (d<span>);</span>
end.
Var
n, i, s: integer;
begin
readln(n);
s := 2 * n;
i := 1;
repeat
s := s + 2 * (n + i);
i := i + 1;
until i > n;
writeln(s);
end.
6e будет первоначальной цифрой потом идёт:11 1017121213 и всё всем помогаю чао