K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

1 tháng 4 2021

B1: nhập số tiền khác đã mua readln(t);
B2: nếu số tiền khách đã mua >150000 thì s:=t*((100-10)/100)

ngược lại thì s:=t*((100-5)/100);

B3: tiếp tục xét nếu số tiền khách đã mua>300000 thì s:=t*((100-15)/100);

b4: in kq ra màn hình

20 tháng 3 2023

program GiamGiaTheoSoLuong;

var

     soluonghoa: integer;

     dongia, thanhtien: real;

begin

     write('Nhap so luong hoa: ');

     readln(soluonghoa);

     write('Nhap don gia: ');

     readln(dongia);

     thanhtien := soluonghoa * dongia;

     if soluonghoa >= 10 then

          thanhtien := thanhtien * 0.9

     else if soluonghoa >= 5 then

          thanhtien := thanhtien * 0.95;

     writeln('So luong hoa: ', soluonghoa);

     writeln('Don gia: ', dongia:0:2);

     writeln('Thanh tien: ', thanhtien:0:2);

     readln;

end.