105 120 125 130 135 140 145 150 160 165 170 175 180 185 190 195 205 210 215 230 235 240 245 250 260 265 270 275 280 285 290 295 305 310 315 320 325 340 345 350 360 365 370 375 380 385 390 395 405 410 415 420 425 430 435 450 460 465 470 475 480 485 490 495 510 520 530 540 560 570 580 590 605 610 615 620 625 630 635 640 450 650 670 675 680 685 690 695 705 710 715 720 725 730 735 740 745 750 760 765 780 785 790 795 805 810 815 820 825 830 835 840 845 850 860 865 870 875 890 895 905 910 915 920 925 930 935 940 945 950 960 965 970 975 980 985 990 995 вот все!
1)
Program task1;
var
i, j, sum: integer;
begin
for i:=100 to 125 do
begin
sum:=1+i;
for j:=2 to i div 2 do
begin
if i mod j = 0 then sum:=sum+j;
if sum>216 then break;
end;
if sum = 216 then writeln(i);
end;
end.
2)
Program task2;
var
i, j, k: integer;
begin
for i:=110 to 120 do
begin
k:=2;
for j:=2 to i div 2 do
begin
if i mod j = 0 then inc(k);
if k=8 then break;
end;
if k < 8 then writeln(i, ', k = ', k);
end;
end.
