Pascal/Turbo Pascal - numeros pares e impares

   
Vista:

numeros pares e impares

Publicado por luisina (18 intervenciones) el 21/04/2014 16:46:34
hola necesito ayuda con este ejercicio:
No puedo modularizar

Se lee una secuencia de números; la lectura finaliza cuando se lee el número 1562, el
cual debe procesarse.
informar el número comienza con un dígito impar y termina con digito par.
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

numeros pares e impares

Publicado por ramon (2072 intervenciones) el 21/04/2014 19:19:24
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
{Algo así bale}
 
program numeros;
 uses
    crt;
  var
    numero : integer;
    elnume : string[12];
    unidad, decena, centena, mil : integer;
   begin
       clrscr;
       writeln('  Entre numeros termina el numero 1562');
       writeln;
       while numero <> 1562 do
       begin
          readln(numero);
       end;
       unidad := numero mod 10;
       decena := (numero div 10) mod 10;
       centena := (numero div 100) mod 10;
       mil := (numero div 1000) mod 1000;
       clrscr;
       if mil mod 2 = 0 then
       writeln('  Primer Numero Es Par')
     else
       writeln('  Primer Numero Es Impar');
       if unidad mod 2 = 0 then
       writeln('  Ultimo Numero Es Par')
     else
       writeln('  Ultimo Numero Es Impar');
       readkey;
   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