Discussion :

[nicolasg8]

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.