Pascal/Turbo Pascal - For, While, Do, to, cual como lo hago

   
Vista:
Imágen de perfil de Misael

For, While, Do, to, cual como lo hago

Publicado por Misael (34 intervenciones) el 18/03/2015 17:20:56

Necesito hacer un programa que imprima en pantalla los números pares hasta el 20 menos el 12 o que no imprima el doce ya lo ice que imprima del 2,4,6,8,10,12,13,14,16,18,20 pero no quiero que salga el "12" se Q' es simple pero soy nuevo en esto Agracias por su ayuda.




pares-menos-el-12
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

For, While, Do, to, cual como lo hago

Publicado por David (144 intervenciones) el 18/03/2015 19:35:16
Te propongo la siguiente solución:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Uses CRT;
 
var
  cont : integer;
 
begin
  clrscr;
  cont:=2;
  while (cont<=20) do
      begin
      if cont<>12 then
        write(cont:3);
      cont:=cont+2;
    end;
    readln;
 
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Misael

For, While, Do, to, cual como lo hago

Publicado por Misael (34 intervenciones) el 18/03/2015 20:37:18
Si funciona muchas gracias lo avía arreglado pero creo que tu solución es mejor, el mio repetía los números


ccccccccccccccccccc
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar