From 9dd64189e3523d8f7b5aab98fbc1d69c27dcb84b Mon Sep 17 00:00:00 2001 From: Kirito <1362050620@qq.com> Date: Sun, 1 May 2016 10:43:30 -0500 Subject: [PATCH] Create 1079.pas From https://vijos.org/p/1248/solution --- QUSTOJ/1079.pas | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 QUSTOJ/1079.pas diff --git a/QUSTOJ/1079.pas b/QUSTOJ/1079.pas new file mode 100644 index 0000000..97b5660 --- /dev/null +++ b/QUSTOJ/1079.pas @@ -0,0 +1,13 @@ +var +k,ld,cbs,cd,md,i,x1,x2,x3,x4:integer; +sj:real; +begin +read(k,x1,x2,x3,x4); +sj:=99999999; +for ld:=0 to 10 do +for cbs:=0 to 10 do +for cd:=0 to 10 do +for md:=0 to 10 do +if (ld+cbs+cd+md=k) and (((20-ld*2)*x1+(100-cbs*7)*x2*2/((10+md*1)*x4)+(100-cd*9)*x3/((10+md*1)*x4))