Где только находят такие задачи О_о ну вот :)
uses crt;
type auto=record
nom:string;
sht:integer;
end;
var f,g:text;
a:array[1..100] of auto;
s,s1:string;
n,k,i,j,c,p,r:integer;
x:auto;
begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
read(f,n);
readln(f,s);
readln(f,s);
k:=1;
a[k].nom:=copy(s,1,8);
delete(s,1,9);
val(s,a[k].sht,c);
for i:=2 to n do
begin
readln(f,s);
s1:=copy(s,1,8);
delete(s,1,9);
val(s,r,c);
p:=0;
j:=1;
while(j<=k) and(p=0) do
if s1=a[j].nom then
begin
p:=j;
a[p].sht:=a[p].sht+r
end
else j:=j+1;
if p=0 then
begin
k:=k+1;
a[k].nom:=s1;
a[k].sht:=r;
end;
end;
close(f);
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i].sht<a[j].sht then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1 to k do
begin
writeln(g,a[i].nom,' ',a[i].sht);
writeln(a[i].nom,' ',a[i].sht);
end;
close(g);
end<span>.</span>
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
1 текст:
(Буква) (Десятичный код) (код)
С 243 11110011
у 213 11010101
а 193 11000001
206 11001110
( - ) 45 00101101
208 11010000
а 193 11000001
206 11001110
______________________________________________
2 текст: (Англ.яз)
(Буква) (Десятичный код) (Двоичный код)
I 73 01001001
B 66 01000010
M 77 01001101
______________________________________________
Примечания: Ответы даны на ПОКАЗАННЫЕ Вами буквы и знаки.
( - ) - обозначение дефиса.
Английские буквы не кодируются в КОИ-8, используют (не беспокойтесь, это совершенно правильный подход).