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

[Pein95]

а чем вам мой алгоритм не подходит?

[Lex-7051]

Final version:

program ProgOne;
var i,num,a,b,c: integer;
begin
writeln ("Enter number:");
readln (num);
for i:=100 to num do
begin
a:= i div 100;
b:=(i mod 100) div 10;
c:=i mod 10;
if i=((a*a*a)+(b*b*b)+(c*c*c)) then
writeln (num);
end;
end.

[Julila]

uses crt;
function sum3(x:longint):longint;
var tmp:longint;
begin
sum3:=0;
while (x>0) do
begin
tmp:=x mod 10;
sum3:=sum3+tmp*tmp*tmp;
x:=x div 10;
end;
end;
var n,i:longint;
begin
write('n= ');
readln(n);
for i:=1 to n do
if (i = sum3(i)) then writeln(i);
Readln;
end.

[Julila]

скинул знакомый. такую версию. у меня не запускается.

[Julila]

Сообщение от Lex-7051

Final version:

program ProgOne;
var i,num,a,b,c: integer;
begin
writeln ("Enter number:");
readln (num);
for i:=100 to num do
begin
a:= i div 100;
b:=(i mod 100) div 10;
c:=i mod 10;
if i=((a*a*a)+(b*b*b)+(c*c*c)) then
writeln (num);
end;
end.

блиин. это же не это требуется в условии((

[Lex-7051]

Требуется. Это перебор всех чисел до введённого, и проверка условия. Но вариант знакомого всё-же лучше.

[Julila]

program tak;
var a,b,c,ch : integer;
begin
write ('Vvedite zadannoe chislo');
write (ch);
{ teper nado naiti vse cifri menwe zadannogo}
For i:= 1 to ch do
begin

мне кажется теперь надо цикл вставить

[Julila]

вариант знакомого у меня не запускается, и я не понимаю что там да как вышло((

[Lex-7051]

А какая ошибка в его варианте?

[Lex-7051]

Я написал только для трёхзначных чисел