Question

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

Answer 1

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.