Пожалуйста, помогите с программами ** Паскале! 1) Найти все целые числа из промежутка от...

Question

Пожалуйста, помогите с программами на Паскале!

1) Найти все целые числа из промежутка от 100 до 125 у которых сумма делителей равна 216

2)Найти все целые числа из промежутка от 110 до 120, у которых меньше 8 делителей. Вывести эти числа и количество их делителей.

Answer 1

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 for var i:=100 to 125 do

 begin

   var s:=i+1;

   for var j:=2 to i div 2 do

     if i mod j=0 then s+=j;

   if s=216 then i.Print

 end

end.

102 110

begin

 for var i:=110 to 120 do

 begin

   var k:=2;

   for var j:=2 to i div 2 do

     if i mod j=0 then k+=1;

   if k<8 then Println(i,k)</p>

 end

end.

111 4

113 2

115 4

116 6

117 6

118 4

119 4

Comments

Спасибо!

---

Пожалуйста

Answer 2

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.

     

Comments

Спасибо!