Program S3;
Var
i : integer;
//*******************************
Function puiss (n:integer;k:integer) : integer;
Var
p,i : integer;
Begin
p := 1;
For i:=1 To k Do
p := p*n;
puiss := p;
End;
//*******************************
Function verif( n:integer) : boolean;
Var
ch : string;
d,e,s,i,j : integer;
Begin
str(n,ch);
j := 1;
Repeat
s := 0;
For i:=1 To length(ch) Do
Begin
val(ch[i],d,e);
s := s+puiss(d,j);
End;
j := j+1;
Until (j>5) Or (s=n);
If s=n Then
verif := true
Else verif := false;
End;
//*******************************
Begin
writeln ('------ les chiffres qui vérifient la condition sont: ----------');
For i:= 1000 To 9999 Do
If (verif(i)) Then
writeln(i);
End.
Inscription à :
Publier les commentaires (Atom)
