|
|
|
|
|
|
|
Вернуться
| 1 Стратонов Денис Володимирович, 05 мая 2010 г. 15:49:43 | |
Var x,i,k,n,j:LongInt;
A:Array[1..1000] of LongInt;
begin
Assign(Input,'Input.txt');
Reset(Input);
Assign(Output,'Output.txt');
Rewrite(Output);
Read(n);
A[1]:=1;
k:=1;
For i:=1 to n do
begin
x:=0;
For j:=1 to k do
begin
x:=A[j]*2+x;
A[j]:=x mod 10;
x:= x div 10;
end;
if x>0 then begin (Inc(k)); A[k]:=x; end;
end;
For i:=k Downto 1 do
Write(A[i]);
Close(Input);
Close(Output);
end.
|
|
|
| 2 dAFTc0d3r Делюкин Максим, 04 мая 2010 г. 3:51:58 | |
Правда тренировки очень сезонные.
neerc.ifmo.ru/school/io ещё например
В эту субботу там командная олимпиада будет.
Не зыбывайте регистрироваться если хотите поучаствовать. :)
|
|
|
| 3 dAFTc0d3r Делюкин Максим, 03 мая 2010 г. 20:23:21 | |
|
Ну может ещё отборы в команды топовых вузов =) например ИТМО. Ну да, там же проводятся тренировки на neerc.ifmo.ru/trains
|
|
|
| 4 dAFTc0d3r Делюкин Максим, 03 мая 2010 г. 20:21:44 | |
|
Наверное кроме ACM ICPC ничего такого уровня не слышал.
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
