Voilà essaye de voir ce programme
Espèrant que je vous ai aidez.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 program puissance; var x,y , i : integer ; begin writeln( 'Donner un nombre et calculons jusqu''a Puissance 10'); readln(x); y:=1; for i :=1 to 10 do begin y:=y*x; writeln(x,' Puissance ', i,' est ', y); end; end.
Partager