Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
program Psmcg;
uses crt;
var don_gia, so_luong, tong_tien, phi_giao_hang: integer;
begin
write('Nhap so luong san pham: ');
readln(so_luong);
if so_luong <= 20 then
begin
don_gia := 50000;
end
else
begin
don_gia := 40000;
end;
tong_tien := don_gia * so_luong;
if tong_tien > 2000000 then
begin
phi_giao_hang := 0;
end
else
begin
phi_giao_hang := 15000;
end;
tong_tien := tong_tien + phi_giao_hang;
writeln('So tien khach hang phai thanh toan la: ', tong_tien);
readln;
end.
{ đơn giá: a, số lượng: b}
uses crt;
var a,b,s,thanhtoan:integer;
begin
write('nhap gia don hang:');
read(a);
write('nhap so luong hang:');
s:=0;
thanhtoan:=0;
s:=a*b;
if s>100 then thanhtoan:= s*(30/100)
else thanhtoan:= s* (10/100);
write(' so tien can thanh toan la:',' ',thanhtoan);
readln;
end.
INP: 150 hóa đơn
OUT: Tổng số tiền của 150 hóa đơn
Thuật toán
B1: Nhập các số tiền hóa đơn a[1],a[2],...,a[150]
B2: t←0; i←1;
B3: Nếu i<=n thì in ra tổng số tiền và kết thúc
B4: t←t+a[i]; quay lại bước 3
B5: i←i+1; quay lại bước 3.
*Viết chương trình
program hotrotinhoc;
var i,t: longint;
a: array[1..150] of longint;
begin
for i:=1 to 150 do
begin
write('Nhap hoa don so ',i ,':'); readln(a[i]);
end;
t:=0; i:=1;
while i<=n do
begin
t:=t+a[i];
i:=i+1;
end;
write('Tong so tien la : ',t);
readln
end.
Bn coppy bàu khác qua đây hả mik thấy giống y chang, vs lại n là gì vậy
uses crt;
var n,s,i,j:longint;
st:real;
begin
clrscr;
write('nhap so kw su dung=');readln(n);
s:=0;
if n<=50 then
begin
for i:=1 to n do
s:=s+1500;
end
else begin
for i:=1 to 50 do
s:=s+1500;
for j:=51 to n do
s:=s+2000;
end;
st:=s+s*5/100;
writeln('so tien tong cong la: ',st:4:2);
readln;
end.
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.