Giúp mình nhaaaaaaaaaa!????
Bt1: viết chương trình thực hiện các yêu cầu sau:.
– nhập 2 số nguyên a,b.
– nếu a>b thì tính hiệu a-b ngược lại tín hiệu b-a.
– in kết quả ra màn hình.
Bt2: một nhà sách đang thực hiện đợt khuyến mãi lớn.Nếu khách hàng mua đơn hàng trị giá không nhỏ hơn 500.000 thì được giảm giá 30% ngược lại thì sẽ được giảm giá 5%. Bạn bảo đến nhà sách mua một đơn hàng trị giá T đồng viết chương trình tính tiền bạn Bảo phải thanh toán
Bt1: (hình 1)
Bt2: (hình 2) mình không chắc đúng 100%
Bài 1.
var a, b : integer;
Begin
Write (‘Nhap so a:’); readln (a);
Write (‘Nhap so b:’); readln (b);
If a>b then write (‘Hieu hai so la:’,a-b) else write (‘Hieu hai so la:’,b-a);
Readln
End.
Bài 2.
var t, tt : real;
Begin
Write (‘Nhap so tien goc:’); readln (t);
If t >= 500 then tt:=t*70/100 else tt:=t*95/100;
Write (‘So tien phai tra la:’,tt,’nghin dong’);
Readln
End.
~~viet8a3tv~~