Пожалуйста, помогите с программами на Паскале!
1) Найти все целые числа из промежутка от 100 до 125 у которых сумма делителей равна 216
2)Найти все целые числа из промежутка от 110 до 120, у которых меньше 8 делителей. Вывести эти числа и количество их делителей.
1) Найти все целые числа из промежутка от 100 до 125 у которых сумма делителей равна 216
2)Найти все целые числа из промежутка от 110 до 120, у которых меньше 8 делителей. Вывести эти числа и количество их делителей.
Answers & Comments
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.