<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var m:=1 to ReadInteger('n=')-1 do begin
var s:=0;
for var i:=1 to m div 2 do
if m mod i=0 then s+=i;
if m=s then Writeln(m)
end
end.
<u>Пример</u>
n= 10000
6
28
496
8128
№4
Судя по таблице,значение А будет иметь 15.т.к.А=20,B=5;Дальше по таблице идёт число 15, следующая стрелка: A=A-B=20-5=15 и стрелка видёт к 15
Удачи:з
Это твой дом инет или нет?
если нет то твоему устройству запретили подк к этой сети
#include <iostream>
using namespace std;
int reduce_fraction(int n, int m)
{
if (m == 0) {
return n;
}
return reduce_fraction(m, n % m);
}
int main()
{
int num, dem;
cout << "Nominator: ";
cin >> num;
cout << "Denominator: ";
cin >> dem;
int nod = reduce_fraction(num, dem);
cout << num << '/' << dem << " => " << (num / nod) << '/' << (dem / nod) <<
endl;
return 0;
}
Нарисуй какашку у меня петерка стоит за рисунок