Bài 6. Câu lệnh điều kiện

KR

Hãy viết chương trình cho Ví dụ 3 SGK trang 48(Tin học 8,Bài 6:Câu lệnh điều kiện)

GB
3 tháng 12 2018 lúc 16:51

program baitap;

uses crt;

var thanhtien:real;

begin

clrscr;

write (' So tien khach da mua la: '); readln (thanhtien);

if thanhtien>=100000 then thanhtien := (70*thanhtien/100)

else thanh tien := (90*thanhtien/100);

writeln (' So tien khach phai tra la: ',thanhtien:4:2);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
KR
Xem chi tiết
VS
Xem chi tiết
NH
Xem chi tiết
HH
Xem chi tiết
NT
Xem chi tiết
NT
Xem chi tiết
Xem chi tiết
Xem chi tiết
NN
Xem chi tiết