Program z2_65;
uses crt;
Label a1,a2,a3,a4,a5,a6,a7;
var a,s,h,rv,ro,p:real;
n:integer;
begin
clrscr;
Writeln('Укажите номер пункта:');
writeln('1. Дана сторона треугольника.');
writeln('2. Дана площадь треугольника.');
writeln('3. Дана высота треугольника.');
writeln('4. Дан радиус вписанной окружности треугольника.');
writeln('5. Дан радиус описанной окружности треугольника.');
read(n);
case n of
1:Begin Write('a=');read(a);goto a1;end;
2:begin Write('s=');read(s);goto a2;end;
3:Begin Write('h=');read(h);goto a3;end;
4:Begin Write('r=');read(rv);goto a4;end;
5:Begin Write('R=');read(ro);goto a5;end;
else
begin
write('Такого номера пункта нет.');
goto a7;
end;
end;
a1: rv:=a/2;
ro:=a/Sqrt(3);
s:=sqrt(3)*sqr(a)/4;
h:=2*s/a;
goto a6;
a2: a:=sqrt(4*s/sqrt(3));
h:=2*s/a;
rv:=a/2;
ro:=a/Sqrt(3);
goto a6;
a3: a:=2*h/sqrt(3);
s:=a*h/2;
rv:=a/2;
ro:=a/Sqrt(3);
goto a6;
a4: a:=2*rv;
ro:=a/Sqrt(3);
s:=sqrt(3)*sqr(a)/4;
h:=2*s/a;
goto a6;
a5: a:=sqrt(3)*ro;
s:=(a*a*a)/(4*ro);
h:=2*s/a;
rv:=a/2;
a6: writeln('a=',a:2:2);
writeln('s=',s:2:2);
writeln('h=',h:2:2);
writeln('R=',ro:2:2);
writeln('r=',rv:2:2);
a7: readkey;
end.
сначала определяем к-во символов в каждой строке
1-1 2-3 3-7 4-15 5-31 6-63 7-127
7-я строка имеет 127 символов и состоит из символа G к которому слева добавлено
две 6-х строки, определяем номера начала и конца каждой строки
6(1-63) 6(64-126) G(127)
видим что нужные символы во 2-й 6-й строке
6-я строка состоит из символа F к которому слева добавлено
две 5-х строки, определяем номера начала и конца каждой строки
5(64-94) 5(95-125) F(126)
нужные символы во 2-й 5-й строке
5-я строка состоит из символа E к которому слева добавлено
две 4-х строки, определяем номера начала и конца каждой строки
4(95-109) 4(110-124) E(125)
и вот мы наконец добрались до уже известной 4-й строки и знаем номера символов в ней,
AABAAB C(116) A(117) A(118) B(119) A(120) A(121) B(122) C(123) D(124)
таким образом нужные символы CAABAA
алгоритм решения такой разбиваем строки на подстроки и узнаем номера начала и конца каждой, пока не дойдем до уже известной строки
program t3;
var a,b,c:real; {допустимо поменять на integer}
begin
writeln ('Vvedit a,b,c');
readln (a,b,c);
if (a<=b+c) and (b<=a+c) and (c<=a+b) then writeln ('0'); else
if (a=c) and (c=b) then writeln (3); else
if (a=c) or (a=b) or (b=c) then writeln ('2'); else
writeln ('1');
readln
end.