Ответы на вопрос:
Var i,j,j3,k,k3,n: longint; c: real; begin // константа, 1/корень кубический из двух c: =1.0/power(2,1.0/3.0); writeln('n=? '); readln(n); // основной цикл, пробуем разбивать i на сумму кубов for i: =1 to n do begin // первое число, от 1 до корня кубического из (i/2) for j: =1 to floor(power(i,1.0/3.0)*c) do begin // куб первого числа j3: =j*j*j; // куб второго числа, или не куб, позже проверим k3: =i-j3; // само второе число k: =round(power(k3,1.0/3.0)); // проверка, является ли k3 кубическим if ((k3 = k*k*k) and (k> 0)) then // да, к3 - куб : ) writeln('i=',i,' j=',j,' k=',k); end; end; end.
Популярно: Информатика
-
aandrey33614.05.2020 07:23
-
1223345464775888677622.05.2021 20:48
-
07221502.10.2021 10:28
-
alinamensikova05.08.2022 01:44
-
спаситепомогите11103.12.2022 23:30
-
Cektumcempra14.10.2020 12:43
-
kukusiki1234508.05.2020 22:01
-
Lisska14717.01.2022 20:46
-
легенда1913.01.2020 22:43
-
jonhcenapampam2222206.10.2020 03:43