Quảng cáo
1 câu trả lời 587
Program BT;
Uses crt;
Var tien,songay,giamgia:Real;
loai:Char;
Begin
clrscr;
Writeln('Vui long nhap so ngay');Readln(songay);
Writeln('Vui long nhap loai');Readln(loai);
Case loai of
'A':begin
If songay<=12 then tien:=250000*songay
Else tien:=(250000*songay)-((250000*songay)/10)
end;
'B':begin
If songay<=12 then tien:=200000*songay
Else tien:=(200000*songay)-((200000*songay)/100*8)
end;
'C':begin
If songay<=12 then tien:=150000*songay
Else tien:=(150000*songay)-((150000*songay)/100*8)
end;
end;
Writeln('So tien can thanh toan la :',tien:0:11);
Readln;
End.
{Day la do minh tu viet co the con sai sot do minh dang ban neu co gi sai ban binh luan de minh sua nhe cam on ^^}
Quảng cáo