Tâm mở một cửa hàng bán văn phòng phẩm. Trong ngày khai trương, để ”mua may bán đắt”, Tâm quan niệm rằng khi khách hàng mua một sản phẩm nào đó thì phải trả đúng với số tiền của sản phẩm để Tâm không phải trả lại tiền thừa cho khách hàng.
Nam là bạn thân của Tâm đến mua hàng. Nam hiện có N tờ tiền, mỗi tờ tiền M đều có giá trị khác nhau. Giả thiết rằng với số tiền của Nam hiện có đều có thể mua được một số sản phẩm trong cửa hàng.
Yêu cầu: Vì Nam không quen với việc tính toán, em hãy giúp Nam tính xem với N tờ tiền như vậy thì Nam không thể mua sản phẩm có giá trị nhỏ nhất (Min) là bao nhiêu?
Dữ liệu vào: File văn bản BUY.INP
Dòng thứ nhất là số N (0Dòng thứ hai có N tờ tiền, mỗi tờ tiền M cách nhau một khoảng trắng (0Dữ liệu ra: File văn bản BUY.OUT
- Gồm một số nguyên dương Min cần tìm.
Ví dụ:
BUY.INP BUY.OUT
5
1 2 4 9 100 8
b)
3 7
1 2 3
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.
Vì 106000 : 20000 > 5
=> Cô Hoa đã mua trên 5 sản phẩm
4 sản phẩm đầu cô Hoa mua với tổng giá tiền:
(100% - 20%) x 4 x 20 000=64 000(đồng)
Số tiền các sản phẩm cô Hoa mua được giảm 30% là:
106 000 - 64 000= 42 000(đồng)
Số sản phẩm cô Hoa được giảm 30% là:
42 000 : (100% - 30%) : 20000= 3(sản phẩm)
Số sản phẩm được cô Hoa mua là:
4+3= 7 (sản phẩm)
Gọi giá vốn là 100% thì giá bán ngày khai trương :
100% + 19% = 119%
Giá bán so với vốn nếu không hạ giá 15% là :
119% : (100 - 15) x 100 = 140%
Nếu không hạ giá thì cửa hàng đó lãi số phần trăm :
140% - 100% = 40%
Coi giá bán lúc đầu là 100% thì sau khi hạ giá chỉ còn bán với giá bằng :
100% - 15% = 85% (giá bán lúc đầu)
Tuy vậy vẫn lãi 19% so với tiền vốn, vậy nếu coi tiền vốn là 100% thì tiền vốn bằng :
100% + 19% = 119% (giá bán lúc đầu)
Nếu của hàng không hạ giá thì bán lãi số phần trăm là :
(119% : 85%) - 100% = 40%
Đáp số: 40%
sau khi hạ giá còn:100-15+85 số tiền lãi là:100+19=119 ko hạ giá thì lai:(119:85)-100=40% d/s 40%
uses crt;
var a,b:array[1..1000]of longint; d:text; i,j,n,k,t,kt,ktt:longint;
begin
clrscr;
assign(d,'input.pas');reset(d);
readln(d,n);
for i:=1 to n do read(d,a[i]);
k:=0;
for i:=1 to n do
begin
t:=0;
for j:=i to n do
begin
t:=t+a[j];
inc(k,3);
b[k-2]:=i;
b[k-1]:=i+j;
b[k]:=t;
end;
end;
// for i:=1 to k do write(b[i],';'); writeln;
kt:=0;
i:=0;
repeat
inc(i); ktt:=0;
for j:=1 to k do If i=b[j] then ktt:=1;
if ktt=0 then kt:=1;
until kt=1;
writeln(i);
close(d);
readln
end.
Cái test thứ 2 đúng, còn cái test thứ 1 sai rồi bạn ơi phải ra 8 mới đúng mà mình chạy ra 11