Найти все натуральные числа, не превосходящие заданного 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. или как правильнее написать программу?
n, s,i,j: integer;
begin
read(n);
for i := 1 to n.ToString.Length do
s := s + round(power(strtoint(n.ToString[i]), 3));
for i := 1 to n do if(i = s) then writeln(i);
end.