ПомогитеНужно разъяснить решение программки Program qq;var b,c,f:integer ;beginfor var

Помогите
Нужно разъяснить решение программки
Program qq;
var b,c,f:integer ;
begin
for var a:=100 to 999 do
Begin
b:= a mod 10;
c:= (a mod 100) div 10;
f:=a div 100;
if a=(c*c*c)+ (b*b*b) + (f*f*f) then
writeln(a);
end;
end.

Задать свой вопрос
1 ответ

Программка перебирает все 3х значные числа

b - первая цифра числа, т.е. единицы

c- вторая цифра числа, т.е. 10-ки

f - 3-я цифра числа, т.е. сотни

таким образом программка выводит все 3х значные числа, которые одинаковы сумме кубов собственных цифр

т.е. такие числа, что f*100+c*10+b=f*f*f+b*b*b+c*c*c

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт