fork download
copy 
  1. program ideone;
  2. begin
  3. 	(* your code goes here *)
  4.  
  5. 	(* Declaração de Váriáveis *)
  6. 	var numero:integer;
  7. 	var contador:integer;
  8.  
  9. 	(* Entrada de Dados *)
  10. 	read(numero);
  11.  
  12. 	(* Processamento *)
  13. 	contador:=1;
  14.  
  15. 	while contador <=numero do
  16. 	begin
  17. 		writeln("Números : ",contador);
  18. 		contador:=contador+1;
  19. 	end
  20.  
  21. end.
Success #stdin #stdout 0s 4352KB
comments (?)
stdin
copy 
10
stdout
copy 
Números : 1
Números : 2
Números : 3
Números : 4
Números : 5
Números : 6
Números : 7
Números : 8
Números : 9
Números : 10
https://ideone.com/6w3auf
language:
Pascal (gpc 20070904)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!