Condición If
Condición
If ....Then ..... Else
Condición Si (If ... Then)
Sino (Else)
CÓDIGO
Program Condicion_if; Uses Crt; Var x,y:integer; begin ClrScr; writeln('Ingresa un numero'); readln(x); writeln('Ingresa otro numero'); readln(y); writeln; if x>y then begin write(x); write(' es mayor que '); writeln(y); end else begin write(x); write(' es menor que '); writeln(y); end; writeln; write('Presiona Enter p/Salir'); readln; end.
No hay comentarios:
Publicar un comentario
Inicio
Suscribirse a:
Entradas (Atom)
No hay comentarios:
Publicar un comentario