Отыскать все натуральные числа, не превосходящие данного N и одинаковые сумме

Отыскать все натуральные числа, не превосходящие заданного 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.

Либо как вернее написать программу?

Эвелина Пашохонова 2019-04-22 23:41:17

Нет , не так)))