Question

10: Viết chương trình nhập vào số ngày thuê phòng khách sạn, loại phòng (A, B, C).

-         phòng loại A : 300000/ngày
-         phòng loại B : 250000/ngày
-         phòng loại C : 200000/ngày
Tính tiền và xuất ra có quy cách.

mong mọi người giúp mình😊😊😊😊😊😊

Answer 1

Tham Khảo:

uses crt;

var ngay:integer;

lp:string;

begin

clrscr;

repeat

write('nhap so ngay thue phong khach san:'); readln(ngay);

if ngay<=0 then writeln('nhap lai');

until ngay>0;

repeat

write('nhap loai phong:'); readln(lp);

if (lp<>'A') and (lp<>'B') and (lp<>'C') then writeln('nhap lai');

until (lp='A') or (lp='B') or (lp='C');

case lp of

'A': write(300000*ngay);

'B': write(250000*ngay);

'C': write(200000*ngay);

end;

readln;

end.