все натуральные числа не превосходящие заданное число N и равное сумме кубов своих цифр.

[Julila]

я не понимаю.правда. Ваш вариант у меня тоже не работает.
не выдает вообще никакого результата.
я понимаю вот что
мне дали число
например 345
мне надо найти все числа меньше 345
у которых
сумма кубов цыфр
равна 345
и выписать все эти цыфры..
как**
подскажите.

[Lex-7051]

program ProgOne;
var i,k,num,temp,sum3: integer;
begin
writeln ("Enter number:");
readln (num);
for i:=1 to num do
begin
k:=i;
while (k>0) do
begin
tmp:=k mod 10;
sum3:=sum3+tmp*tmp*tmp;
k:=k div 10;
end;
if i=sum3 then
writeln (num);
end;
end.

Попробуй это. Симбиоз.

[Julila]

неа. не то

[Lex-7051]

Что не так? Я сам проверить не могу.

[unbanned]

program skub;

var
  n, m, i, j, s, jn: integer;

begin
  readln(n);
  for j := 1 to n do 
  begin
    s := 0;
    m := j;
    jn := j;
    i := 0;
    while jn <> 0 do 
    begin
      i := i + 1;
      s := s + sqr(jn mod 10) * (jn mod 10);
      jn := jn div 10;
    end;
    if s = m then writeln(m);
  end; 
end.

эмм... бредово, куча переменных... но вроде работает...

[Julila]

да. Да))
у меня работает) 0оно выходит как надо))
Спасибо боьшоею)

[Lex-7051]

Переменная i не нужна.

[firephenix]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i,n,kol : longint;

function proverka(v : longint) : boolean;
var
  s : string;
  i,c,ans,code : longint;
begin
  str(v,s);
  ans:=0;
  for i:=1 to length(s) do
    begin
      val(s[i],c,code);
      ans:=ans+c*c*c;
    end;
  if (ans<n) and (ans=v)
    then writeln(s);
end;

begin
  readln(n);
  for i:=1 to 2916 do Proverka(i);
  readln(n);
end.

[unbanned]

а почему именно 2916?
как показала практика это 407 )))

на любые числа больше 407 ответ выдает:
1
153
370
371
407

сам чет не понимаю почему... неужели больше нет таких чисел

[firephenix]

Максимальное возможное значение путём рассуждений 2916.