Question

Câu 1: Viết chương trình nhập vào 2 số nguyên a,b. Kiểm tra a,b cùng dáu hay trái dấu ( cùng âm hoặc cùng dương hoặc âm, dương hoặc dương, âm)

Câu 2: Viết chương trình nhập vào 2 số nguyên a,b. Kiểm tra tính chẵn lẻ ( cùng lẻ hoặc cùng chẵn hoặc.......)

Answer 1

Câu 1: 

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

if (a>0) and (b>0) then writeln('Cung duong');

if (a<0) and (b<0) then writeln('Cung am');

if (a>0) and (b<0) then writeln('Duong am');

if (a<0) and (b>0) then writeln('Am duong');

readln;

end.

Câu 2: 

uses crt;

var a,b:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

if (a mod 2=0) and (b mod 2=0) then writeln('Cung chan');

if (a mod 2<>0) and (b mod 2<>0) then writeln('Cung le');

if (a mod 2=0) and (b mod 2<>0) then writeln('Chan le');

if (a mod 2<>0) and (b mod 2=0) then writeln('Le chan');

readln;

end.