Repit until si o no

● jueves, 19 de julio de 2012

Program Repita_until1;
Uses WinCrt;
Var resp:char;
Begin
ClrScr;
REPEAT
Writeln ('***Desea continuar el programa , S/N***');
Readln (resp);
UNTIL resp='N';
End.

Etiquetas:

0 comentarios:

Publicar un comentario

:) :)) ;(( :-) =)) ;( ;-( :d :-d @-) :p :o :>) (o) [-( :-? (p) :-s (m) 8-) :-t :-b b-( :-# =p~ $-) (b) (f) x-) (k) (h) (c) cheer
Clique no emotion para ver o código!
Para inserir um emoticon pelo menos um espaço antes de códigos emoticon.

Suscribirse a: Enviar comentarios (Atom)
 
Richarth Flores © 2012 | Traduzido Por: Template Para Blogspot