2-9r · informatik.az

Найти все трехзначные числа Амстронга- сумма кубов цифр которых равна самому числу. Например: 271 = 2³ + 7³ + 1³ .

Так как надо найти все трехзначные числа Амстронга, то надо перебрать все трехзначные числа и для каждого числа найти сумму кубов его цифр и сравнить с самим числом.

Program A2_9;

var

i,a,b,c,s:integer;

begin

for i:=100 to 999 do { перебор всех трехзн. чисел}

begin

a:=i mod 10; { выделение }

b:=(i div 10) mod 10; { цифр }

c:=i div 100;

s:=a*a*a+b*b*b+c*c*c; {выч. суммы}

if (s=i) then writeln(i); {сравнение }

end;

readln;

end.

// Program A2.9;

#include <iostream>

using namespace std;

int main()

{ int i,a,b,c,s;

for (i=100;i<1000;i++)

{ a=i%10;

b=(i/10)%10;

c=i/100;

s=a*a*a+b*b*b+c*c*c;

if (s==i) cout<<i<<endl;

}

return 0;

}