Những câu hỏi liên quan
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)
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)
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)
Thái Thành
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.

 

 

 

 

 

 

 

 

Bình luận (0)
Phạm Ngọc chi
Xem chi tiết
Gia Minh
Xem chi tiết
Gia Minh
Xem chi tiết