Răspuns :
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.
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.

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!