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
Câu 44: 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)
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.