Прежде всего - формулы. Пусть а - длина стороны, тогда
var
a, r, rr, h, s: real;
begin
Write('Введите длину стороны треугольника: ');Readln(a);
r := sqrt(3) * a / 6;
rr := 2 * r;
h := 3 * r;
s := a * h / 2;
Writeln('Радиус вписанной окружности ', r);
Writeln('Радиус описанной окружности ', rr);
Writeln('Высота треугольника ', h);
Writeln('Площадь треугольника ', s);
end.
<em><u>Тестовое решение:</u></em>Введите длину стороны треугольника: 10
Радиус вписанной окружности 2.88675134594813
Радиус описанной окружности 5.77350269189626
Высота треугольника 8.66025403784439
Площадь треугольника 43.3012701892219
Пассажирский ИЛИ Белорусский
То есть подходят записи, в которых указан пассажирский поезд, или в которых указан вокзал "Белорусский"
Подходят 6, 7, 9 и 10 строки таблицы, ответ 4.
Не понял точно, что значит в развернутом виде, но если ты имел ввиду разложить на десятки, то вот:10000+3000+600+60+3
Объяснение:
в 128 символьном алфавите 1 символ равен 7 битам
1120/6= 160