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

[Lex-7051]

И это только для трёхзначных чисел.

[Pein95]

есть ещо вариант переводим в строку потом каждый символ в число и проверяем условие

[Julila]

ага. я поняла) )
слушай а зачем оно вообще-то в принципе))
мне же надо все числа меньше его обработать, ведь так??

[Julila]

Сообщение от Pein95

есть ещо вариант переводим в строку потом каждый символ в число и проверяем условие

я сразу так подумала. но это будет как то не красиво смотрется. задача заданна по предмету программная инженерия. и мне к ней надо только блок схему. а как я нарисую блок схему ,Е сли не знаю как записать текст программы(

[Julila]

мне кажется надо цыкл написать от 100 до заданного числа
и в этом цыкле найти все числа ...
а потом их расспечатать
только как.

[Lex-7051]

Код программы:
program tak;
var i,num,a,b,c: integer;
begin
writeln ("Enter number:");
readln (num);
for i:=100 to num do
begin
a:= num div 100;
b:=(num mod 100) div 10;
c:=num mod 10;
if num=((a*a*a)+(b*b*b)+(c*c*c)) then
writeln (num);
end;
end.

Для трёхзначного числа. Компилятора под рукой нет, проверить не могу.

[Pein95]

хотя можно и не переводить в строку вот алгоритм которій раскладывеат числа на цыфры

  readln(x);
  repeat
    y := x mod 10;
    writeln(y);
    x := x div 10;
  until x = 0;
readln;
end.

вам сюда нужно только добавить проверку на ваше условия и все
а ето токо для трехзначного тогда тут вопше проблем нет

[Lex-7051]

Ошибочка В цикле for надо num заменить на i

[Julila]

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

[Julila]

тут не все так просто выходит.
((