Nguyễn Dũng
Hỏi từ APP VIETJACK
Viết chương trình tính cước phí sử dụng các dịch vụ Internet một tháng cho từng thuê bao. Với công thức tính cước phí như sau:
Tổng số tiền = tiền thuê bao hằng tháng + Đơn giá 1MB x Số MB dữ liệu đã sử dụng
Tới tiền thuê bao đơn giá 1MB, MB đã sử dụng được nhập từ bàn phím
Tổng số tiền = tiền thuê bao hằng tháng + Đơn giá 1MB x Số MB dữ liệu đã sử dụng
Tới tiền thuê bao đơn giá 1MB, MB đã sử dụng được nhập từ bàn phím
Quảng cáo
1 câu trả lời 1740
4 năm trước
Với ngôn ngữ pascal:
uses crt;
var a,b,c: integer;
d:real; {vì số MB có thể lẻ}
{Với a: tổng số tiền, b: tiền thuê bao, c: đơn giá MB, d: số MB dùng}
begin
Clrscr;
Write('nhap so tien thue bao hang thang: ');readln(b);
Write('nhap don gia 1MB: ');readln(c);
Write('nhap so MB da su dung ');readln(d);
a:=b+(c*d);
Writeln ('tong so tien la: ',a);
Readln;
End.
uses crt;
var a,b,c: integer;
d:real; {vì số MB có thể lẻ}
{Với a: tổng số tiền, b: tiền thuê bao, c: đơn giá MB, d: số MB dùng}
begin
Clrscr;
Write('nhap so tien thue bao hang thang: ');readln(b);
Write('nhap don gia 1MB: ');readln(c);
Write('nhap so MB da su dung ');readln(d);
a:=b+(c*d);
Writeln ('tong so tien la: ',a);
Readln;
End.
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44980
-
Hỏi từ APP VIETJACK27135
Thành viên hăng hái nhất trong tuần
-
우옌🖤 해영 ✨
1810 điểm
-
Sori
1745 điểm
-
사랑해요😘
1190 điểm
-
Dương Nguyễn
1140 điểm
-
`color{blue}text{HuyTùng☢`
925 điểm
-
그림 그리기를 좋아하지만, 직업이 허락하지 않아요😞
875 điểm
-
하루토 [팜 안 둥]
850 điểm
-
돈이없다 💸😭
845 điểm
-
`d.`
805 điểm
-
౨ৎ𝘉ắ𝘱ت𝘭𝘶ộ𝘤تđê⋅˚₊‧ ଳ⋆.࿔*:･🌽
785 điểm
-
🌷김은✨
630 điểm
-
Bích Hồng 625 điểm
-
누가 고철을 팔고 싶어할까요🗑️🗑️
585 điểm
-
jamJames 🥵👍
555 điểm
-
''e thik biker hơn a''
480 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
3 năm trước8221
-
3 năm trước7732
-
3 năm trước6571
-
3 năm trước6460
-
3 năm trước6291
Gửi báo cáo thành công!
