Viết chương trình nhập vào 2 số nguyên m n
Sử dụng câu lệnh điều kiện If…then bằng nhau để thông báo ra màn hình kết quả sau:
Cả hai số đều là số chẵn
Cả hai số đều là số lẻ
Một số chẵn một số lẻ
Giúp mình khởi mình sắp thi rồi
Viết chương trình nhập vào 2 số nguyên m n
Sử dụng câu lệnh điều kiện If…then bằng nhau để thông báo ra màn hình kết quả sau:
Cả hai số đều là số chẵn
Cả hai số đều là số lẻ
Một số chẵn một số lẻ
Giúp mình khởi mình sắp thi rồi
program bai_giai;
uses crt;
var n,m:integer;
begin
clrscr;
write(‘Nhap m: ‘); readln(m);
write(‘Nhap n: ‘); readln(n);
if (m mod 2=0) and (n mod 2=0) then write(‘Ca hai so deu la so chan’)
else if (m mod 2=1) and (n mod 2=1) then write(‘Ca hai so deu la so le’)
else write(‘Mot so chan, mot so le’);
readln;
end.
uses crt;
var m,n:integer;
begin
clrscr;
write(‘Nhap m,n: ‘); readln(m,n);
if (m mod 2<>1) and (n mod 2<>1) then write(‘Ca hai so deu la so chan’)
else if (m mod 2<>0) and (n mod 2<>0) then write(‘Ca hai so deu la so le’)
else write(‘Mot so chan mot so le’);
readln;
end.