Những câu hỏi liên quan
Gia Minh
Xem chi tiết
phạm tường lam
Xem chi tiết
Phạm Ngọc chi
Xem chi tiết
Ngô Thanh Tùng
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.

Bình luận (1)
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!

Bình luận (0)
Khánh Linh
Xem chi tiết
LongNguyen
Xem chi tiết
Chanh Xanh
23 tháng 11 2021 lúc 9:54

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.

Bình luận (0)
LongNguyen
Xem chi tiết
Rhider
23 tháng 11 2021 lúc 10:25

program az;

uses Crt;

var n : real;

begin

clrscr;

Write('Nhap so tien thanh toan luc dau : '); readln(n);

If (n >= 100000) then n := (70*n)/100 else n := (90*n)/100;

Write('So tien can thanh toan la : ',n);

readln

end

Mình học từ hồi lớp 8 r

Bình luận (0)