Algoritmo comparar 3 números
Respuestas a la pregunta
Respuesta:
Program threenumbs;
var
n1: integer;
n2: integer;
n3: integer;
Begin
writeln('Ingrese tres números: ');
readln(n1);
readln(n2);
readln(n3);
if (n1 < n2) and (n1 < n3) then
begin
if (n2 < n3) then
begin
writeln('Núm mayor: ', n3);
writeln('Num medio: ', n2);
writeln('Núm menor: ', n1);
end
else
if (n2 > n3) then
begin
writeln('Núm mayor: ', n2);
writeln('Num medio: ', n3);
writeln('Núm menor: ', n1);
end
end
else
if (n1 < n2) and (n1 > n3) then
begin
writeln('Núm mayor: ', n2);
writeln('Num medio: ', n1);
writeln('Núm menor: ', n3);
end
else
if (n1 > n2) and (n1 > n3) then
begin
if (n2 < n3) then
begin
writeln('Núm mayor: ', n1);
writeln('Num medio: ', n3);
writeln('Núm menor: ', n2);
end
else
if (n2 > n3) then
begin
writeln('Núm mayor: ', n1);
writeln('Num medio: ', n2);
writeln('Núm menor: ', n3);
end
end
else
if (n1 > n2) and (n1 < n3) then
begin
writeln('Núm mayor: ', n3);
writeln('Núm medio: ', n1);
writeln('Núm menor: ', n2);
end
else
writeln('Ingresaste números de igual valor y no se pudo realizar la evaluación. Abortando proceso...');
End.
Explicación:
Es un algoritmo escrito en Pascal. Lo podes compilar con FreePascal. El programa compara 3 numeros que el usuario ingrese, pero si se ingresan numeros de igual valor, da un mensaje y se cierra el programa.