Giúp mình nha bài tập cô giao về nhà làm đúng thì 5* và ctlhn Lưu ý không chép mạng 1) Khuyến mãi tại 1 siêu thị 500000 trở lên sẽ được giảm 50% thanh toán. Nếu mua ít hơn giảm 5% a) Mô tả thuật toán tính tiền b) Viết chương trình tính tiền

a)Gọi giá tiền tổng sp là x

Gọi giá tiền phải trả là y

x là gtri nhậpNếu x>500k thì y=x/2

Ngược lại thì y=95%x

b)Chương trình

Var x,y:interger;

Begin

Readln(x); If x>500000 then y:=x/2 else y=x*95/100;

Writeln(y);

End.

a) Mô tả thuật toán:

Bước 1: Nhập T

Bước 2: Nếu T<500000 thì Tien←T-(T*50/100); ngược lại Tien←T-(T*5/100)

Bước 3: Xuất Tien và kết thúc

b) Viết chương trình:

Program baitap;

Uses crt;

Var T:longint;

      Tien:extended;

Begin

Clrscr;

Write('Nhap so tien da thanh toan:');

Readln(T);

If T<500000 then Tien:=T-(T*5/100)

Else Tien:=T-(T*50/100);

Writeln('So tien can tra:',Tien:9:1);

Readln

End.