Comment faire un Programme Pascal qui calcule une equation du 1er Degrée
Merci
1 réponse
Votes
Date
Date décroissante
delpozo
Program equa1;
uses wincrt;
var
a,b,x:real;
Begin
Write('A=');
Readln(a);
Write('B=');
Readln(b);
If a<>0 then
Begin
x:=-b/a;
Write('X=',x:0:2);
End
Else If b=0 then
Write('Ensemble IR')
Else
Write('Impossible');
End.
