На форумі обговорюються лише питання, пов'язані з олімпіадою
Ви не зайшли.
Доброго дня, шановне журі!
Код, що був відправлений на залік отримав 4 бали, в той час, як зараз на онлайн-тестуванні проходить повний бал.
Якщо можливо, поясніть, у чому полягає проблема.
Дякую. З повагою, Селіванов Андрій.
Поза форумом
Покажите код.
Поза форумом
Var
n,i:word;
a,b:byte;
r:qword;
m:array[0..10000] of longint;
Begin
readln(n,a,b);
m[0]:=1;
for i:=1 to n do begin
r:=m[i-1];
r:=r*3;
r:=r mod 1000000007;
m[i]:=r;
end;
r:=0;
for i:=0 to n-1 do
r:=(r+m[i]) mod 1000000007;
if abs(a-b)=1 then writeln(r)
else begin
r:=(r*2) mod 1000000007;
writeln(r);
end;
end.
Відредаговано seland (2012-12-28 22:46:14)
Поза форумом
У вас 40 балів за задачу. Була помилка в кеші сторінки результатів. Після примусового очищення кешу випраилася сама по собі. Барабашка.... Приношу вибачення.
Поза форумом
Дякую за розуміння і виправлену помилку.
Поза форумом