<span>транспортир - измерение углов (ГРАДУСЫ)</span>
Var
<span> a, b, c, p,s,s1: real;</span>
begin
<span><span>
write(</span>'Введите три стороны треугольника: '<span>); </span></span><span>
read(a, b, c);</span><span>
p := (a + b + c) / 2;</span><span>
s := sqrt(p * (p - a) * (p - b) * (p - c));</span><span><span>
write(</span>'Введите три стороны другого треугольника: '<span>); </span></span><span>
read(a, b ,c);</span><span>
p := (a + b + c) / 2;</span><span>
s1 := sqrt(p * (p - a) * (p - b) * (p - c));</span><span><span>
write(</span>'Треугольники равновеликие -- ', s = s1)</span><span>
end.</span>
var
arr: array [1..100]of integer;
i, size: integer;
begin
writeln('Введите размерность последовательности: ');
readln(size);
for i := 1 to size do
readln(arr[i]);
i := 1;
repeat
writeln(arr[i], ' ');
inc(i);
until arr[i] = 0;
writeln(0);
end.
Примем A3 за х , тогда формула будет выглядеть следующим образом (+ подставляем имеющиеся значения):
(2х-5)*8=40
делим обе части уравнения на 8 , тогда
2х-5=5
2х=10
х=5
Ответ : 5
Самое понятное решение таких задач, с моей точки зрения, такое
Обозначим за X 4-ю строку
Тогда 5)ХХE
6)XXEXXEF
7)<u>XXEXXEFXXE</u>XXEFG
В 4-ой строке 15 символов
Значит в 7-й подчеркнутый момент составляет 30*3+4=94
Т.е на 95 месте будет начало строки Х
<span>AABAABCAABA<u>ABCD</u> дальше опять идет Х т.е<u> </u></span><u>AA</u>BAABCAABAABCD
Т.е ответ <u>ABCD</u><u>AA</u>
