Напишите, , программу на языке pascal ! проверить является ли пара целых положительных чисел дружественными . два различных натуральных числа являются дружественными, если сумма всех делителей первого числа (кроме самого числа) равна второму числу. например, 220 и 284, 1184 и 1210, 2620 и 2924, 5020 и 5564.

var a,b:integer;

function sum(x:integer):integer;

var s,i:integer;

begin

s:=1;

for i:=2 to x div 2 do

if x mod i=0 then s:=s+i;

sum:=s;

end;

begin

readln(a,b);

if (sum(a)=b)and(sum(b)=a)

then writeln('Введенные числа являются дружественными')

else writeln('Введенные числа не являются дружественными');

end.

Пример:

5020 5564

Введенные числа являются дружественными

Відповідь:

import math

a = float(input(" Перша сторона трикутника = "))

b = float(input(" Друга сторона трикутника = "))

c = float(input(" Третя сторона трикутника = "))

d = [a, b, c]

e = (sum(d)-(min(d)+max(d)))   #знайдемо сторону,що має середнє значення у списку d

if a and b and c  > 0:

   if max(d) == math.sqrt(min(d)**2 + e**2) :

       print("Трикутник - прямокутникй")

   else:

       print("Трикутник не є прямокутним")

else:  

   print("Сторона трикутника не може мати від'ємних значень або дорівнювати нулю")

Пояснення:

На малюнку доказ,що програма правильно працює

Відповідь:

import math

a = float(input(" Перша сторона трикутника = "))

b = float(input(" Друга сторона трикутника = "))

c = float(input(" Третя сторона трикутника = "))

d = [a, b, c]

e = (sum(d)-(min(d)+max(d)))   #знайдемо сторону,що має середнє значення у списку d

if a and b and c  > 0:

   if max(d) == math.sqrt(min(d)**2 + e**2) :

       print("Трикутник - прямокутникй")

   else:

       print("Трикутник не є прямокутним")

else:  

   print("Сторона трикутника не може мати від'ємних значень або дорівнювати нулю")

Пояснення:

На малюнку доказ,що програма правильно працює