Program ordem_crescente;
var n1,n2,n3,n4:integer;
Begin
Write('Digite o 1º número...: ');
Read(n1);
Write('Digite o 2º número...: ');
Read(n2);
Write('Digite o 3º número...: ');
Read(n3);
Write('Digite o 4º número...: ');
Read(n4);
if((n1<n2)and(n1<n3)and(n1<n4))Then
Begin
If((n2<n3)and(n2<n4))Then
Begin
If(n3<n4)Then
Write('a ordem crescente é ',n1,' ',n2,' ',n3,' ',n4)
else
Write('a ordem crescente é ',n1,' ',n2,' ',n4,' ',n3);
end;
If((n2<n3)and(n2<n4))Then
If((n3<n2)and(n3<n4))Then
Begin
If(n2<n4)Then
Write('a ordem crescente é ',n1,' ',n3,' ',n2,' ',n4)
else
Write('a ordem crescente é ',n1,' ',n3,' ',n4,' ',n2);
end;
If((n4<n2)and(n4<n3))Then
Begin
If(n2<n3)Then
Write('a ordem crescente é ',n1,' ',n4,' ',n2,' ',n3)
else
Write('a ordem crescente é ',n1,' ',n4,' ',n3,' ',n2);
end;
end;
if((n2<n1)and(n2<n3)and(n2<n4))Then
Begin
If((n1<n3)and(n1<n4))Then
Begin
If(n3<n4)Then
Write('a ordem crescente é ',n2,' ',n1,' ',n3,' ',n4)
else
Write('a ordem crescente é ',n2,' ',n1,' ',n4,' ',n3);
end;
If((n2<n3)and(n2<n4))Then
If((n3<n1)and(n3<n4))Then
Begin
If(n1<n4)Then
Write('a ordem crescente é ',n2,' ',n3,' ',n1,' ',n4)
else
Write('a ordem crescente é ',n2,' ',n3,' ',n4,' ',n1);
end;
If((n4<n1)and(n4<n3))Then
Begin
If(n1<n3)Then
Write('a ordem crescente é ',n2,' ',n4,' ',n1,' ',n3)
else
Write('a ordem crescente é ',n2,' ',n4,' ',n3,' ',n1);
end;
end;
if((n4<n1)and(n4<n2)and(n4<n3))Then
Begin
If((n1<n2)and(n1<n3))Then
Begin
If(n2<n3)Then
Write('a ordem crescente é ',n4,' ',n1,' ',n2,' ',n3)
else
Write('a ordem crescente é ',n4,' ',n1,' ',n3,' ',n2);
end;
If((n2<n1)and(n2<n3))Then
Begin
If(n1<n3)Then
Write('a ordem crescente é ',n4,' ',n2,' ',n1,' ',n3)
else
Write('a ordem crescente é ',n4,' ',n2,' ',n3,' ',n1);
end;
If((n3<n1)and(n3<n2))Then
Begin
If(n1<n2)Then
Write('a ordem crescente é ',n4,' ',n3,' ',n1,' ',n2)
else
Write('a ordem crescente é ',n4,' ',n3,' ',n2,' ',n1);
end;
end;
End.
Nenhum comentário:
Postar um comentário