Bài 4: Viết chương trình thực hiện : nhập CD và CR từ bàn phím. Kiểm tra nếu CD và CR > 0 thì tính và in lên màn hình diện tích hình chữ nhật.
Bài 6: 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.
Bài 7: Viết chương trình tính tiền thuê sách:
– Nhập : số cuốn, số ngày, giá
Tính tiền = số ngày * số cuốn * giá . Nếu số ngày >5 thì giảm 2000 ngược lại không giảm. Xuất ra có quy cách 10:2.
viết chương trình thực hiện một số m từ bàn phím ,kiểm tra và thông báo m có chia hết cho 5 ko
bài 2
viết chương trình thực hiện nhập a từ bàn phím ,kiểm tra nếu a>0 thì tính và in lên màn hình diện tích hình vuông cso cạch bằng a
giúp em với ạ
Bài 4:
Program FNG;
Uses crt;
Var CD,CR,s: extended;
Begin
Clrscr;
Write(‘Nhap CD, CR: ‘); Readln(CD,CR);
If (CD>0) and (CR>0) then s:=CD*CR;
Write(S:0:2);
Readln
End.
Bài 6:
Program FNG;
Uses crt;
Var ngay,tien: qword;
phong: char;
Begin
Clrscr;
Write(‘Nhap so ngay: ‘); Readln(ngay);
Write(‘Nhap phong: ‘); Readln(phong);
If (phong=’A’) or (Upcase(phong)=’A’) then tien:=ngay*300000;
If (phong=’B’) or (Upcase(phong)=’B’) then tien:=ngay*250000;
If (phong=’C’) or (Upcase(phong)=’C’) then tien:=ngay*200000;
Write(‘Gia tien cua phong ‘,phong,’ trong thoi gian ‘,ngay,’ ngay la ‘,tien);
Readln
End.