Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Lan Anh
Xem chi tiết
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 12 2020 lúc 18:02

uses crt;

var tien:real;

begin

clrscr;

repeat

write('Nhap so tien:'); readln(tien);

until tien>0;

if tien>=100000 then writeln(tien*70/100:4:2)

else writeln(tien*90/10:4:2);

readln;

end.

nguyen thi be
Xem chi tiết
Phạm Ngọc chi
Xem chi tiết
phạm tường lam
Xem chi tiết
Nguyễn Phạm Như Trang
Xem chi tiết
Kiều Vũ Linh
18 tháng 12 2020 lúc 9:58

T = 100 nghìn thì không tính được số tiền phải trả ở cả 2 trường hợp đâu em!

Xem lại đề đi!

Khánh Linh
Xem chi tiết
Nguyễn Thị Trúc Phương
Xem chi tiết
Minh Tuệ Nguyễn
Xem chi tiết
Nguyên Bùi
8 tháng 9 2022 lúc 21:37

{ đơn giá: a, số lượng: b}

uses crt;

var a,b,s,thanhtoan:integer;

begin

write('nhap gia don hang:');

read(a);

write('nhap so luong hang:');

s:=0;

thanhtoan:=0;

s:=a*b;

if s>100 then thanhtoan:= s*(30/100)

   else thanhtoan:= s* (10/100);

write(' so tien can thanh toan la:',' ',thanhtoan);

readln;

end.