Program Repita_until1;
Uses WinCrt;
Var resp:char;
Begin
ClrScr;
REPEAT
Writeln ('***Desea continuar el programa , S/N***');
Readln (resp);
UNTIL resp='N';
End.
Repit until si o no
jueves, 19 de julio de 2012
Etiquetas:
Pascal
Suscribirse a:
Enviar comentarios (Atom)
0 comentarios:
Publicar un comentario