Ominide 30 punti

Pascal

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);
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(resto1<>0)then
begin
if (resto2<>0)then
writeln('i due numeri sono dispari');
readln;
end;
if (resto2<>0) and (resto1=0) then
begin
writeln('almeno uno dei due numeri Š dispari');
readln;
end;
end.

Registrati via email