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(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.
1 min. di lettura
Vota
4
/
5
Accedi a tutti gli appunti
Tutor AI: studia meglio e in meno tempo
