Răspuns :
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.
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.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!