老婆快生了，不知道该准备些什么，哪位有经验的给列个清单，我好去采购。谢谢了！
蜂蜜，助开骨缝，大量消毒纸巾，要那种大张的；巧克力，生产的时候补充体力；再就是给宝宝的零碎东西，产前多陪着老婆，一定给她精神支持
pascal采购清单
program ena;
type
qingdan=record
th:string;
price:integer;
num:integer;
end;
var
a:array[1..100] of integer;
i,s,n:longint;
qd:array[1..100] of qingdan;
begin
read(n);
for i:=1 to n do
with qd[i] do begin
readln(th);
readln(price);
readln(num);
end;
s:=0;
for i:=1 to n do
with qd[i] do
begin
s:=s+price*num;
a[i]:=price*num;
end;
if s<=500 then write(s)
else
for i:=1 to n do
if a[i]>100 then begin write(qd[i].th);writeln;end;
end.
|
