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 ạ
1 câu trả lờ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.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
