Question

DAU COROANA!!!
a) Se dau 3 numere intregi a,b,c. Determinati daca c divide pe a si pe b.
b)Se dau 3 numere intrgi a,b,c. Determinati numnarul mai mare sau daca ele sunt egale.
c) Se dau 3 numere intregi a,b,c. Determinati daca ele pot reprezenta laturile unui triunghi.
Program pascal!!!

Answer 1

var a,b,c,max:integer;  
      este:boolean;
begin
 readln(a,b,c);
 {punctul a}
 if (c mod a=0) and (c mod b=0) then writeln(c,' divide pe ',a,' si pe ',b)                                 else writeln(c,' nu divide pe ',a,' si pe ',b);  

 {punctul b}
 if a>b then max:=a else max:=b;
 if c>max then max:=c;
 writeln('Numarul maxim dintre ',a,' ',b,' si ',c,' este : ',max);

   {punctul c}
 if (a+b>c) or (a+c>b) or (b+c>a) then writeln('Numerele ',a,' ',b,' si ',c,' pot reprezenta laturile unui triunghi')        
                           else writeln('Numerele ',a,' ',b,' si ',c,' nu pot reprezenta laturile unui triunghi');
end.

796f41f9414870e93e8259923836b7ee.pas