Câu 1: Viết Chương Trình đc nhập vào đơn giá và số lượng của sản phẩm . Nếu tổng tiền bằng 100000 thì thông báo giảm giá 10% .Nếu bằng 100000 thì giảm giá 5% . Ngược lại thì ko giảm giá.
Câu 2: Nhập vào số a bất kì. Thông báo số đó là chẵn hay lẻ.
( Mbn giúp mk 2 câu này nha. Tks)
Câu 1:
Program BTT;
Uses crt;
Var dg,sl,tt: int64;
Begin
Clrscr;
Write(‘Nhap don gia: ‘); Readln(dg);
Write(‘Nhap so luong hang: ‘); Readln(sl);
tt:=dg*sl;
If tt>100000 then Write(‘Giam 10%’)
Else
If tt=100000 then Write(‘Giam 5%’)
Else Write(‘Khong giam’);
Readln
End.
Câu 2:
Program BTT;
Uses crt;
Var a: longint;
Begin
Clrscr;
Write(‘Nhap a: ‘); Readln(a);
If a mod 2 <> 0 then Write(‘So le’)
Else Write(‘So chan’);
Readln
End.