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 1774
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 cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45411 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34840 -
Đã trả lời bởi chuyên gia
30638 -
Hỏi từ APP VIETJACK28217
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22413
Gửi báo cáo thành công!
