function summdel(x:integer):integer; //результат - сумма делителей х var k,sum:integer; begin sum:=0; for k := 1 to x div 2 + 1 do if x mod k = 0 then sum:= sum+k; summdel:=sum; end;
begin writeln('Введите границы a,b '); readln(a,b); maxsumm := 1; max := 1; for i := a to b do begin if summdel(i) > maxsumm then begin maxsumm:= summdel(i); max := i; end; end; writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max) end.
Задание 1 - рисунок,
Задание 2.
Множество А: {т, е, к, с}
Множество В: {в, е, с, т, и}
Объединение : {т, е, к, с, в, и} мощность 6
Пересечение: {т, е, с} мощность 3
Дополнение: {в, и} мощность 2.
Задание 3.
В объединении будет минимально 50 элементов. Это в случае если все элементы множества, где 30 элементов, будут уже содержаться и в большом множестве