Hãy viết chương trình cho Ví dụ 3 SGK trang 48

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 154 05/07/2023


Hãy viết chương trình cho Ví dụ 3 SGK trang 48

Đề bài: 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)

Lời giải

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.

1 154 05/07/2023


Xem thêm các chương trình khác: