Một dịch vụ tính phí Internet như sau: Từ phút thứ 1 đến phút thứ 60 tính 80 đ/1 phút. Từ phút thứ 61 đến phút thứ 120 tính 50 đ/1 phút. Từ phút thứ 121 trở đi tính 30 đ/1 phút. Viết chương trình nhập vào số phút truy cập của một người và in ra số tiền phải trả của người đó.
Ví dụ:
Input Output Giải thích
150 9300 60*80 + 60*50+ 30*30 = 8700
Uses crt;
Trả lờiXóaVar n,i,tong:longint;
Begin
readln(n);
If n>60 then
Begin
tong:=tong+60*80;
If n>120 then
Begin
tong:=tong+60*50;
for i:=121 to n do
tong:=tong+30;
Write(tong);
end else If n<=120 then
Begin
for i:=60 to n do
tong:=tong+50;
Write(tong);
end else If n<=60 then
Begin
for i:=0 to n do
tong:=tong+80;
Write(tong);
end;
end;
readln;
end.
Một dịch vụ tính phí Internet như sau: Từ phút thứ 1 đến phút thứ 60 tính 80 đ/1 phút. Từ phút thứ
Trả lờiXóa61 đến phút thứ 120 tính 50 đ/1 phút. Từ phút thứ 121 trở đi tính 30 đ/1 phút. Viết chương trình
tính số tiền phải trả của người đó.
- Input: tệp tiennet.inp gồm:
+ Dòng đầu chứa 2 số nguyên cách nhau bằng dấu : chỉ thời gian bắt đầu truy cập
(giờ:phút)
+ Dòng thứ hai chứa 2 số nguyên cách nhau bằng dấu : chỉ thời gian kết thúc truy cập
(giờ:phút)
- Output: tệp tiennet.out gồm:
+ Dòng 1: chứa tổng số phút đã truy cập
+ Dòng 2: chứa tổng số tiền phải trả
tiennet.inp tiennet.out
15:10 150
17:40 8700
giải giúp em bài nay với ạ
Xóacon cC
Trả lờiXóacc
Trả lờiXóa