Найти все натуральные числа, не превосходящие заданного N и равные сумме кубов его цифр.var i,j,k : byte;beginfor i:=1 to 9 dofor j:=0 to 9 dofor k:=0 to 9 doif iii + jjj + kkk = i100+j10+k then writeln(i,j,k);readln;end.Как сделать ввод самих значений, чтобы программа соответствовала заданию?var i,j,k,n: integer;beginwrite('Введите значение n=');readln(n);beginfor i:=1 to n dofor j:=0 to n dofor k:=0 to n doif iii + jjj + kkk = i100+j10+k then writeln(i,j,k);readln;end;end.Или как правильнее написать программу?

Question

Информатика

Choenoch

4 год назад

Найти все натуральные числа, не превосходящие заданного N и равные сумме кубов его цифр.var i,j,k : byte;beginfor i:=1 to 9 dofor j:=0 to 9 dofor k:=0 to 9 doif iii + jjj + kkk = i100+j10+k then writeln(i,j,k);readln;end.Как сделать ввод самих значений, чтобы программа соответствовала заданию?var i,j,k,n: integer;beginwrite('Введите значение n=');readln(n);beginfor i:=1 to n dofor j:=0 to n dofor k:=0 to n doif iii + jjj + kkk = i100+j10+k then writeln(i,j,k);readln;end;end.Или как правильнее написать программу?

ОТВЕТЫ

Serafim

Oct 24, 2020

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.

825