Найти двузначные числа, тем свойством, что куб - вопрос №1688620 от 228466 02.02.2023 03:10

Question

Информатика: Найти двузначные числа, тем свойством, что куб суммы его цифр равен квадрату самого числа.

228466 · Answer

var i: integer; n1,n2: integer;begin for i := 10 to 99 do begin n1 := i div 10; n2 := i mod 10; if (n1 + n2) * (n1 + n2) * (n1 + n2) = i * i then begin writeln(i); end end;end....