Найти все пары чисел в интервале, одно из которых равно сумме всех делителей другого, кроме самого числа

@lina-lina · Регистрация: 13.10.2014

Author24 — интернет-сервис помощи студентам

переведите пожалуйста код из Pascal в С++

Pascal

i,j: integer;
a,b: integer; //суммы делителей чисел
 
procedure lol(x: integer; var y: integer); //находит сумму всех делителей, кроме самого числа
var i,k: integer;
begin
for i:=1 to x-1 do
if x mod i = 0 then
k:=k+i;
y:=k;
end;
 
BEGIN
for i:=200 to 300 do
for j:=200 to 300 do
begin
lol(i,a);
lol(j,b);
if (a=j) and (i=b) then
writeln(i, - ,j);
end;
END.

@Nevermind_qqq · 13.10.2014, 21:26

может проще новый написать, какое задание?

@lina-lina · 13.10.2014, 21:41 **[ТС]**

Найти все пары чисел в интервале (200;300) , одно из которых равно сумме всех делителей другого, кроме самого этого числа.

@Nevermind_qqq · 13.10.2014, 21:42

получилось как-то так

C++

#include <iostream>
#include <string>
using namespace std;
 
void lol(int& x, int& y)
{
 
    for (int i = 1, k = 0; i < x - 1; i++)
    {
        if (x%i == 0)
        {
            k += i;
            y = k;
        }
    }
}
 
int main()
{
    int a=0, b=0;
 
    for (int i = 200; i < 300; i++)
    {
        for (int j = 200; j < 300; j++)
        {
            lol(i, a);
            lol(j, b);
            if (a == j&&i == b)
            {
                cout << i << "-" << j<<endl;
            }
        }
    }
    system("pause");
    return 0;
}

P.S. я просто перевел код

@konnor0001 · 07.10.2017, 15:12

А можно как-то, но без:

void lol(int& x, int& y)
{

for (int i = 1, k = 0; i < x - 1; i++)
{
if (x%i == 0)
{
k += i;
y = k;
}
}
}

Или если можно то объяснить, что это значит и делает в программе.

@Nevermind_qqq 73 / 59 / 41 Регистрация: 25.06.2014 Сообщений: 360
	13.10.2014, 21:26	2
	может проще новый написать, какое задание? 0

@lina-lina 0 / 0 / 0 Регистрация: 13.10.2014 Сообщений: 14
	13.10.2014, 21:41 [ТС]	3
	Найти все пары чисел в интервале (200;300) , одно из которых равно сумме всех делителей другого, кроме самого этого числа. 0

@konnor0001 0 / 0 / 0 Регистрация: 07.10.2017 Сообщений: 15
	07.10.2017, 15:12	5
	А можно как-то, но без: void lol(int& x, int& y) { for (int i = 1, k = 0; i < x - 1; i++) { if (x%i == 0) { k += i; y = k; } } } Или если можно то объяснить, что это значит и делает в программе. 0