Bonjour,
J'ai un petit problème avec une soustraction, je dois utiliser une boucle "while...do". Merci de me dire ce qui ne va pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Program soustraction; Var a,b: real; Begin WriteLn ('Entrez un nombre'); ReadLn (a); b:=0; While (a<>0) do Begin b:=a-b; WriteLn ('Entrez un nombre'); ReadLn (a); End; WriteLn ('la reponse est ',b:2:2); ReadLn End.
Partager