Помогите

Нужно объяснить решение программы

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 = (ccc) + (bbb) + (fff) then

writeln (a) ;

end;

end.

Question

Информатика

Карлыга

16 февраля, 14:48

Помогите

Нужно объяснить решение программы

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 = (ccc) + (bbb) + (fff) then

writeln (a) ;

end;

end.

+1

Ответы (1)

Знаете ответ на вопрос?

Нелсен · Answer 1

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

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

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

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

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

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

ПомогитеНужно объяснить решение программыProgram qq;var b, c, f:integer;beginfor var a:=100 to 999 doBeginb: = a mod 10;c: = (a mod 100) div 10;f:=a div 100;if a = (c*c*c) + (b*b*b) + (f*f*f) thenwriteln (a) ;end;end.

Помогите

Нужно объяснить решение программы

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 = (ccc) + (bbb) + (fff) then

writeln (a) ;

end;

end.