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
nguyen thi be
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.

Tâm Như
Xem chi tiết
Bùi Anh Tuấn
1 tháng 4 2021 lúc 19:49

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

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.

 

 

 

 

 

 

 

 

Gia Minh
Xem chi tiết
Gia Minh
Xem chi tiết
Thái Thành
Xem chi tiết
Khánh Linh
Xem chi tiết