Răspuns :
Program P9;
var a,b,c : integer;
Begin
writeln('Introduceti numerele intregi:');
readln(a,b,c);
writeln ('Numerele aranjate crescator:');
if (a<b)and (a<c) then
begin
if (b<c) then writeln(a,b,c)
else writeln(a,c,b);
end;
if (b<c) and (b<a) then
begin
if a<c then writeln (b,a,c)
else writeln (b,c,a);
end;
if (c<a) and (c<b) then
begin
if (a<b) then writeln(c,a,b)
else writeln(c,b,a);
end;
End.
var a,b,c : integer;
Begin
writeln('Introduceti numerele intregi:');
readln(a,b,c);
writeln ('Numerele aranjate crescator:');
if (a<b)and (a<c) then
begin
if (b<c) then writeln(a,b,c)
else writeln(a,c,b);
end;
if (b<c) and (b<a) then
begin
if a<c then writeln (b,a,c)
else writeln (b,c,a);
end;
if (c<a) and (c<b) then
begin
if (a<b) then writeln(c,a,b)
else writeln(c,b,a);
end;
End.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!