pascal viết chương trình nhập 2 số nguyên kiểm tra a b cùng dấu hay trái dấu

Question

nhanlinh · Answer

program kiemtra;

uses crt;

var a,b:integer;

begin

clrscr;

write(‘Nhap a: ‘); readln(a);

write(‘Nhap b: ‘); readln(b);

if ((a>=0) and (b>=0)) or ((a<=0) and (b<=0)) then write(a,’ va ‘,b,’ cung dau)

else write(a,’ va ‘,b,’ trai dau);

readln

end.

0 bình luận về “pascal viết chương trình nhập 2 số nguyên kiểm tra a b cùng dấu hay trái dấu”