Question

(Pascal-Nâng cao) Chuyên đề If then

Comments

Bạn hãy viết chương trình nhập 2 số tự nhiên M,N và thông báo "Dung" nếu M,N cùng tính chẵn lẻ, trong trường hợp ngược lại thì thông báo "Sai"

Answer 1

Program TINH_CHAN_LE;

uses crt;

var m, n, x, y: Word;

begin

clrscr;

write('Nhap so m'); readln(m);

x:=m mod 2

write('Nhap so n'); readln(n);

y:=n mod 2

if x = y then writeln('Hai so cung tinh chan le')  

         else writeln('Hai so khong cung tinh chan le');

readln;

end. 

Comments

Cảm ơn bạn nhé! 

Nhưng bạn có thể chia rõ các trường hợp cùng tính chẵn hoặc cùng tính lẻ được không rồi mình tick cho!

---

Đây là chương trình chia rõ các trường hợp cùng tính chẵn hoặc cùng tính lẻ 

Program TINH_CHAN_LE_MOI;

uses crt;

var m, n, x, y: Word;

begin

clrscr;

write('Nhap so m'); readln(m);

x:=m mod 2

write('Nhap so n'); readln(n);

y:=n mod 2

if x=y then if x=y=0 then writeln('Hai so cung chan')

                     else writeln('Hai so cung le')  

       else writeln('Hai so khong cung tinh chan le');

readln;

end.