Question

1) Un număr natural din N cifre se consideră ,,număr de tip Armstrong” dacă suma cifrelor la puterea n=N (de exemplu 153=1³+5³+3³) Elaborați un algoritm care verifică dacă un număr natural N este sau nu de tip Armstrong.
Scrieți programul PASCAL care realizează acest algoritm.

Answer 1

Am rezolvat in Pascal.
var n,c,b,y,uc,p,j,i:integer;
      s:string;
begin 
     write('n= ');
     readln(n); 
     str(n,s); 
     c:=length(s);
     y:=n;
     b:=0; 
     for i:=1 to c do    
     begin       
          uc:=y mod 10;       
          y:=y div 10;p:=1;       
          for j:=1 to c do           
               p:=p*uc;       
          b:=b+p;   
     end;   
if (n=b) then write('de tip Armstrong')       
else write('nu');     
 readln; 
end.