- 1
- 2
{//}l:= a+sqrt(b);
{//}r:= c+sqrt(d);
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 4
−96
{//}l:= a+sqrt(b);
{//}r:= c+sqrt(d);
Ещё из одного исходника олимпиадной задачи. Не удалять же символы комментов, если их можно закомментить?
+96.4
temp:= min(Mon.VGA,Comp.VGA);
inc(n,temp);
dec(Mon.VGA,temp);
dec(Comp.VGA,temp);
temp:= min(Mon.DVI,Comp.DVI);
inc(n,temp);
dec(Mon.DVI,temp);
dec(Comp.DVI,temp);
temp:= min(Mon.Multi,Comp.Multi);
inc(n,temp);
dec(Mon.Multi,temp);
dec(Comp.Multi,temp);
if Mon.Multi<>0
then
begin
temp:= min(Mon.Multi,Comp.VGA);
inc(n,temp);
dec(Mon.Multi,temp);
dec(Comp.VGA,temp);
temp:= min(Mon.Multi,Comp.DVI);
inc(n,temp);
dec(Mon.Multi,temp);
dec(Comp.DVI,temp);
end;
if Comp.Multi<>0
then
begin
temp:= min(Mon.VGA,Comp.Multi);
inc(n,temp);
dec(Mon.VGA,temp);
dec(Comp.Multi,temp);
temp:= min(Mon.DVI,Comp.Multi);
inc(n,temp);
dec(Mon.DVI,temp);
dec(Comp.Multi,temp);
end;
Из ещё одного решения олимпиадной задачи. Вроде подсчитывает количество компов, которые можно собрать при учёте, что у системников и мониторов может быть интерфейс DVI, VGA или оба сразу (Multi).
+107.9
if l<9
then
if r<10
then
s:= inttostr(l)
else
s:= '10'
else
if l<99
then
if r<100
then
s:= inttostr(l)
else
s:= '100'
else
if l<999
then
if r<1000
then
s:= inttostr(l)
else
s:= '1000'
else
if l<9999
then
if r<10000
then
s:= inttostr(l)
else
s:= '10000'
else
if l<99999
then
if r<100000
then
s:= inttostr(l)
else
s:= '100000'
else
if l<999999
then
if r<1000000
then
s:= inttostr(l)
else
s:= '1000000'
else
if l<9999999
then
if r<10000000
then
s:= inttostr(l)
else
s:= '10000000'
else
if l<99999999
then
if r<100000000
then
s:= inttostr(l)
else
s:= '100000000'
else
if l<999999999
then
if r<1000000000
then
s:= inttostr(l)
else
s:= '1000000000';
Нашёл в своём решении какой-то олимпиадной задачи. Долго пытался вспомнить, в каком состоянии был...
+66.8
bind "attack" kill
Классика консоли CS