Найти все натуральные числа, не превосходящие заданного n и равные сумме кубов его цифр. var i,j,k : byte; begin for i: =1 to 9 do for j: =0 to 9 do for k: =0 to 9 do if i*i*i + j*j*j + k*k*k = i*100+j*10+k then writeln(i,j,k); readln; end. как сделать ввод самих значений, чтобы программа соответствовала ? var i,j,k,n: integer; begin write('введите значение n='); readln(n); begin for i: =1 to n do for j: =0 to n do for k: =0 to n do if i*i*i + j*j*j + k*k*k = i*100+j*10+k then writeln(i,j,k); readln; end; end. или как правильнее написать программу?

frolikoffgrigory    2   27.08.2019 17:30    0