Sei pari o dispari?

pariDati due numeri G e M, il giorno e il mese della tua data di nascita, calcola il tuo numero fortunato (la loro somma se sei nato in un giorno pari altrimenti la loro differenza…)

Esempi

Istanza Elaborazione Risposta
1 G=4
M=6
4/2=2 con resto 0
4+6=10
10
2 G=5
M=6
5/2=2 con resto 1
5-6=-1
-1

CODICE

Program Pari;
Var
   G,
   M: Integer;
   x: Integer;
Begin
   Write('Giorno = '); Readln(G);
   Write('Mese   = '); Readln(M);  

   If((G Mod 2) = 0) Then
      Begin
         x:=G+M;
      End
   Else
      Begin
         x:=G-M;
      End;

   Writeln('Il tuo numero fortunato: '. x);
   ReadLn;
End.

Codice più compatto…

...
    If((G Mod 2) = 0) Then
        x:=G+M
    Else
        x:=G-M;
    Writeln(x);
...

L’operatore Mod calcola il resto della divisione intera (modulo).