Pascal/Turbo Pascal - programa en free pascal

   
Vista:

programa en free pascal

Publicado por lorena (2 intervenciones) el 20/05/2012 22:48:08
hola amigos necesito me ayuden a hacer un programa que acepte numeros hasta el valor centinela -999 , para cada numero el programa contara los numeros pares e impares. muchas gracias bonito dia a todos :)
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

programa en free pascal

Publicado por ramon (2072 intervenciones) el 21/05/2012 18:57:03
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
{A ver si esto es lo que quieres}
 
program paresnones;
 uses
    crt;
  var
    numero : integer;
    salir : integer;
    contpares, contnones : integer;
 
  begin
      clrscr;
      salir := 1;
      while salir <> -999 do
      begin
         write('Entre un numero :  ');
         readln(numero);
         if numero = -999 then
         salir := numero
      else
         begin
            if numero mod 2 = 0 then
            contpares := contpares + 1
          else
            contnones := contnones + 1;
         end;
      end;
      writeln;
      writeln(' Los Numeros Pares Entrados Son : ',contpares);
      writeln(' Los Numeros Nones Entrados Son : ',contnones);
      writeln;
      writeln('     Pulse [Enter]');
      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
0
Comentar

programa en free pascal

Publicado por lorena (2 intervenciones) el 23/05/2012 00:08:10
muchas gracias ramon bonito dia
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