var i,n,m,sum,pr,k,j:longint;
begin
sum:=0; pr:=1;
write('m: '); readln(m);
write('n: '); readln(n);
i:=2;
repeat
if m mod i = 0 then
begin
sum:=sum+i;
m:=m div i;
i:=2;
end
else inc(i);
until m=1;
writeln('Sum_M:', sum);
for i:=2 to n div 2 do
if n mod i = 0 then
begin
k:=2;
for j:=2 to i div 2 do
if i mod j = 0 then inc(k);
if (k>2)and(i mod 3 = 0 ) then
pr:=pr*i;
end;
writeln('Proizv_N:', pr);
if sum>pr then writeln('Da, sum prost del M > proizv sost del N')
else
writeln('Net, sum prost del M < proizv sost del N');
end.
1. Математическая часть задачи.
Пусть a, b -- катеты ΔABC, а c -- гипотенуза.
1) Найдём катеты ΔABC:
ΔABC -- равнобедренный (по условию). => a = b.
c² = a² + b² (по теореме Пифагора)
c² = 2a²
a² = c² / 2
a = b = √(c² / 2)
2) Найдём радиус вписанной окружности:
r = (a + b - c) / 2 = (2a - c) / 2 = (2√(c² / 2) - c) / 2 = √(c² / 2) - c / 2
3) Найдём площадь вписанной окружности:
S = πR² = πr² = π(√(c² / 2) - c / 2)²
2. Код на Python
import math
c = int(input("Введите длину гипотенузы треугольника: "))
print(math.pi * (math.sqrt(c ** 2 / 2) - c / 2) ** 2)
