Регистрация
anya0207
13.06.2021 09:16
Информатика
Есть ответ 👍

Решить на питоне, числовая дружба оставьте программу для решения . два натуральных числа называются дружественными, если каждое из них равно сумме всех делителей другого (само другое число в качестве делителя не рассматривается). например, 220 (1+2+4+5+10+11+20+22+44+55+110=284) и 284 (1+2+4+71+142=220) – дружественные числа. пары необходимо выводить по одной в строке, разделяя пробелами. найти все пары натуральных дружественных чисел, меньших 10 000. формат вывода на каждой строке пара натуральных дружественных чисел, числа в паре расположены в порядке возрастания.

188
271
Посмотреть ответы 2

Ответы на вопрос:

ДмитрийКалашник
ДмитрийКалашник
4,5(11 оценок)

for i in range(1, 10000):

    k = 0

    n = 0

    for x in range(1, i):

        if i % x == 0:

            k += x

    for j in range(1, k):

        if k % j == 0:

            n += j

    if i == n and i ! = k and i == min(i, k):

        print(i, k)

koteleva
koteleva
4,4(73 оценок)
Можно заметить, что самый большой угол в треугольнике всегда расположен напротив самой длинной стороны, которую мы обозначим буквой с. значение такого угла можно найти по теореме косинусов: в остроугольном треугольнике угол всегда будет меньше 90 градусов, поэтому его косинус всегда будет положительным. в прямоугольном треугольнике косинус будет равен нулю, а в тупоугольном он будет отрицательным. на этом можно построить решение, предварительно определив, какая из сторон является самой длинной. и, само собой разумеется, надо сразу после ввода проверить условие существования треугольника, т.е. чтобы сумма длин двух его любых сторон была больше третьей. var   a,b,c,a1,b1,c1,cosc: real; begin   write('введите длины сторон треугольника: ');   read(a,b,c);   write('треугольник ');   if (a< (b+c)) and (b< (a+c)) and (c< (a+b)) then begin       if a> b then           if a> c then begin c1: =a; a1: =c; b1: =b end           else begin c1: =c; a1: =a; b1: =b end       else           if b> c then begin c1: =b; a1: =a; b1: =c end           else begin c1: =c; a1: =a; b1: =b end;       cosc: =(sqr(a1)+sqr(b1)-sqr(c1))/(2*a*b);       if cosc< 0 then writeln('тупоугольный')       else           if cosc=0 then writeln('прямоугольный')           else writeln('остроугольный')   end   else writeln('построить невозможно') end. тестовое решение: введите длины сторон треугольника: 6 4.1 4 треугольник тупоугольный

Популярно: Информатика