Я знаю, что это правильный ответ
В шестеричной. Поскольку в шестеричной полученную 6 заменяем на 10. Выходит:
50+10=100.
Эквивалент в десятичной:
30+6=36.
Var k,sum:integer;
begin
sum:=0;
for k:=50 to 100 do
if((k mod 2 = 0) and (k mod 3 =0)) then sum:=sum+k;
writeln(sum);
end.
Прежде всего - формулы. Пусть а - длина стороны, тогда
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