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

2 câu trả lời

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

Bước 1: Nhập a

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

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

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

Program baitap;

Uses crt;

Var a:longint;

      T:extended;

Begin

Clrscr;

Write('Nhap so tien goc:');

Readln(a);

If a>=500000 then T:=a-(a/100*50)

Else T:=a-(a/100*5);

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

Readln

End.

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

Bước 1: Nhập n

Bước 2: Nếu n>=500000 thì T←a*0.5;

Bước 2: Nếu n<500000 thì T←a*0.95;

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

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

Program baitap;

Uses crt;

Var n:longint;

      T:extended;

Begin

Clrscr;

Readln(n);

If n>=500000 then T:=n*0.5;

If n<500000 then T:=n*0.95;

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

Readln

End.