Напишите программу, которая ищет среди целых чисел, принадлежащих числовому отрезку [563213; 565340] число с максимальной суммой различных простых делителей, имеющее ровно пять простых делителей (1 не считается простым делителем). Для найденного числа выведите само число, сумму делителей и все делители в порядке неубывания, через пробел.
r:=Sqr(Sqr(Sqr(Sqr(x))*x))*x; // 21
r:=Sqr(Sqr(Sqr(Sqr(x*x; // 17
r:=Sqr(Sqr(Sqr(x))*x)*x; // 11
Пример полной программы, реализующей такой алгоритм
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
function Dec2Bin(x:integer):string;
begin
var t:=x;
var r:string:='';
while t>=2 do (r,t):=(t mod 2+r,t shr 1);
Result:=t+r
end;
function Pow(x:real;n:integer):real;
// Быстрое возведение в степень "слева направо"
begin
var m:=Dec2Bin(n);
Result:=x;
for var i:=2 to m.Length do begin
Result:=Sqr(Result);
if m[i]='1' then Result*=x
end
end;
begin
var x:=ReadReal('Укажите основание х:');
var n:=ReadInteger('Укажите степень n:');
Writeln(x,'^',n,' = ',Pow(x,n))
end.
Примеры
Укажите основание х: 0.918
Укажите степень n: 39
0.918^39 = 0.0355520433528712
Укажите основание х: -2
Укажите степень n: 15
-2^15 = -32768
Укажите основание х: 12.6
Укажите степень n: 23
12.6^23 = 2.03480378921486E+25