Условия существования треугольника - сумма 2ух сторон больше 3ей
var a,b,c:real;
e:boolean;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then e:=true;
writeln(e);
<span>end.
если что то не понятно пишите в комменты</span>
N = int(input())
s = 1
for i in range(2, n//2+1):
if n % i == 0: s = s+i
if s == n:
print("Совершенное")
else:
print("Не совершенное")
Пример:
6
<span>Совершенное</span>
DIM i AS INTEGER, s AS LONG
FOR i = 20 TO 40
s = s + i ^ 3
NEXT
PRINT "Сумма всех кубов от 20 до 40 = ";s