Найти все натуральные числа, не превосходящие заданного 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 iii + jjj + kkk = i100+j10+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 iii + jjj + kkk = i100+j10+k then writeln (i, j, k) ;

readln;

end;

end.

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

Question

Информатика

Филиппин

26 июля, 02:31

Найти все натуральные числа, не превосходящие заданного 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 iii + jjj + kkk = i100+j10+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 iii + jjj + kkk = i100+j10+k then writeln (i, j, k) ;

readln;

end;

end.

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

+5

Ответы (1)

Знаете ответ на вопрос?

Настюня · Answer 1

Var

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.