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)

 end

end.

111 4

113 2

115 4

116 6

117 6

118 4

119 4

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.

     

Answer 3

Конечно, вот программы на Pascal, которые выполняют задачи, о которых вы спрашиваете:

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

pascalCopy code
program FindNumbersWithSumOfDivisors;
var
  i, j, sum: integer;
begin
  for i := 100 to 125 do
  begin
    sum := 0;
    for j := 1 to i do
    begin
      if i mod j = 0 then
        sum := sum + j;
    end;

    if sum = 216 then
      writeln('Число ', i, ' имеет сумму делителей равную 216');
  end;
end.

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

pascalCopy code
program FindNumbersWithFewDivisors;
var
  i, j, countDivisors: integer;
begin
  for i := 110 to 120 do
  begin
    countDivisors := 0;
    for j := 1 to i do
    begin
      if i mod j = 0 then
        Inc(countDivisors);
    end;

    if countDivisors < 8 then
      writeln('Число ', i, ' имеет ', countDivisors, ' делителя(ей)');
  end;
end.

Эти программы помогут вам найти числа, соответствующие вашим условиям в указанных диапазонах.