Đáp án: 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 20000... - 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(S02); ReadlnEnd 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(pho...

Phạm Ngọc Hiếu Nghĩa

2 năm trước

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 ạ

Xem đáp án

39 lượt xem

1 câu trả lời

YiYi Đức Nhật

2 năm trước

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.