Inseriti da input due numeri interi si verificherà se sono pari o dispari.

program resto;

uses crt;

var n1,n2,resto1,resto2:integer;

begin

clrscr;

writeln('inserisci un intero');

readln(n1);

writeln('inserisci un altro intero');

readln(n2);

Verifica dei numeri pari

resto1:=n1 mod 2;

resto2:=n2 mod 2;

if (resto1=0)then

begin

if(resto2=0)then

writeln('i due numeri sono pari');

readln;

end;
if(resto10)then

begin

if (resto20)then

writeln('i due numeri sono dispari');

readln;

end;
if (resto20) and (resto1=0) then

begin

writeln('almeno uno dei due numeri Š dispari');

readln;

end;

end.

Domande e risposte

Hai bisogno di aiuto?
Chiedi alla community