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.