[you92cef]

البرنامج الثاني

program ex07;
uses wincrt;
var a,b,c,x,x1,x2,delta:real;
begin
writeln('S.V.P entrez les valeur de a,b,c');
readln(a,b,c);
if a=0 then if b=0 then if c=0 then writeln('L''ensemble des solution est R')

                        else writeln('Pas de solution ,impossible')
            else writeln('La solution est:',-c/b:3)
else begin
delta:=sqr(b)-4*a*c;
if delta<0 then writeln('Pas de solution dans R')
else if delta=0 then writeln('Solution double',-b/(2*a):3)
     else begin 
         x1:=(-b-sqrt(delta))/(2*a);
         x2:=(-b+sqrt(delta))/(2*a);
         writeln('Les deux solution distinctes sont x1:',x1:3,'  x2:',x2:3);

 end;
 end;
 end.

البرنامج الثالث سهل
تستعمل while
مع if وعداد

الامر لا يحتاج الى تفكير كبير
حاول تحله بنفسك واذا لم تعرف نحن هنا نساعدك ان شاء الله