Question

первый член последовательности равен 36. каждый последующий вычисляется из предыдущего как сумма кубов всех его цифр. второй член последовательности равен 27_216=243. Чему равен 127-ой член?

Answer 1

Программа на языке PascalABC.Net:
var
  sPred,sSucc,i,d:integer;
begin
  sPred:=36;
  for i:=2 to 127 do
  begin
    sSucc:=0;
    while sPred>0 do begin
      d:=sPred mod 10;
      sSucc:=sSucc+d*sqr(d);
      sPred:=sPred div 10
    end;
    sPred:=sSucc
  end;
  Writeln(sSucc)
end.

Результат выполнения программы:
153