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

[Julila]

Найти все натуральные числа не превосходящие заданное число N и равное сумме кубов своих цифр.
ПАСКАЛЬ
МОЖЕТЕ ПОДСКАЗАТЬ ХОД РЕШЕНИЯ. ЧТО найти надо..
просто вообще без понятия как делать.
если кто то знает код , то буду рада. Зарание спасибо

[Lex-7051]

Наверное имелось ввиду: Найти все натуральные числа не превосходящие заданное число N и равные сумме кубов своих цифр. Смысл в том, что нужно выбрать такие натуральные(не отрицательные) числа, которые меньше числа N, и одновременно равны сумме своих цифр, возведённых в куб (Пример: трёхзначное число abc, где а - разряд сотен, b - разряд десятков, и c - разряд единиц. Нужно найти: abc=(a^3)+(b^3)+(c^3))

[Julila]

Да. Спасибо я поняла.
Но у меня еще один вопрос.
как можно например заданное число 4567
расписать по а, б, с

я просто не знаю.

[Lex-7051]

Выполняется двумя вложенными циклами: Первый перебирает числа до N, а второй разбирает каждое число на цифры и проверяет условие.

[Lex-7051]

Не помню как они разбираются. Очень давно не программировал на Паскале.

[Lex-7051]

Как вариант: Сначала взять остаток от деления на 10. Для следующего: остаток от деления на 100, делённый нацело на 10 и т.д. Не думаю, что это самый эффективный способ.

[Julila]

Єхх. мі такого точно не учили..

[Lex-7051]

На сколько я помню, a mod b - остаток от деления a на b, a div b - деление нацело.

[Julila]

Да да
вот я написала. так??

program tak;
var a,b,c,ch : integer;
begin
write ('Vvedite zadannoe chislo');
write (ch);
a:= Ch mod 1000;
b:= ch mod 100;
c:=ch mod 10;
for i := 1 to 10000 do
if abc=(a*a*a)+(b*b*b)+(c*c*c) then begin
writeln (abc);
else
writeln

[Lex-7051]

Неа Правильно присваивается только с. Нужно b:=(ch mod 100) div 10; a:=(ch mod 1000) div 100; и т.д.