Repit Until Basico

● jueves, 19 de julio de 2012

Program Repita_until3;
Uses WinCrt;
Var n, x:integer;
Begin
n:=1;
Writeln ('***Hasta que número***');
Readln (x);
REPEAT
Writeln (n);
n:=n+1;
UNTIL n>x;
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