Question

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

Answer 1

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.

Answer 2

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.