Nhập vào số dương N là số dung lượng mà khách hàng đã sử dụng dịch vụ Internet trong một tháng. Hãy tính hóa đơn tiền mà khách hàng phải thanh toán cho nhà cung cấp dịch vụ, In kết quả ra màn hình, biết thành tiền=N.Đơn giá. Trong đó:
- Nếu N <50 Mb thì hóa đơn được tính với đơn giá là 450.
- Nếu N>50 Mb thì hóa đơn của 50 Mb đầu được tính với đơn giá là 450, còn (N-50) Mb còn lại được tính với đơn giá...
Đọc tiếp
Nhập vào số dương N là số dung lượng mà khách hàng đã sử dụng dịch vụ Internet trong một tháng. Hãy tính hóa đơn tiền mà khách hàng phải thanh toán cho nhà cung cấp dịch vụ, In kết quả ra màn hình, biết thành tiền=N.Đơn giá. Trong đó:
- Nếu N <50 Mb thì hóa đơn được tính với đơn giá là 450.
- Nếu N>50 Mb thì hóa đơn của 50 Mb đầu được tính với đơn giá là 450, còn (N-50) Mb còn lại được tính với đơn giá 500
Program HOC24;
Var i,N: integer;
t: longint;
begin
write('Nhap dung luong ma khach hang da su dung : '); readln(N);
if N<=50 then
for i:=1 to n do t:=t+450;
if n>50 then
begin
t:=50*450;
for i:=51 to n do t:=t+500;
end;
write('Hoa don tien ma khach hang phai thanh toan cho nha cung cap dich vu la : ',t);
readln
end.
uses crt;
var n,i:integer;
t:real;
begin
clrscr;
write('Nhap so dung luong:'); readln(n);
if n<=50 then
begin
t:=0;
for i:=1 to n do
t:=t+450;
end
else begin
t:=50*450;
for i:=51 to n do
t:=t+500;
end;
writeln('Tong so tien la: ',t:0:0);
readln;
end.