Результаты V сетевой районной олимпиады по информатике

Результаты V сетевой районной олимпиады по информатике, Республика Карелия, 11 декабря 2010 г.
Место Участник A B C D E Баллы
Сортавала
1 Заславский Виталий (СОШ N 3, Сортавала, 9) 100 . 51 100 . 251
2 Петров Денис (СОШ N 3, Сортавала, 8) . . 21 100 . 121
3 Панюков Денис (СОШ N1, Сортавала, 10) . . . 100 . 100
3 Никитин Олег (СОШ N1, Сортавала, 10) . . . 100 - 100
3 Дралова Минна (СОШ N 3, Сортавала, 10) . - . 100 . 100
6 Щепляков Дмитрий (СОШ N 3, Сортавала, 11) . . . 95 . 95
7 Бышкин Дмитрий (СОШ N 3, Сортавала, 11) . - . 52 . 52
8 Попова Светлана (Вяртсильская СОШ, 11) . . . - . 0
Кондопожский район
1 Маллат Виктор (лицей, Кондопога, 11) . 45 80 100 . 225
2 Изотов Юрий (лицей, Кондопога, 11) . . . 100 . 100
3 Бесов Александр (лицей, Кондопога, 11) - . - 48 . 48
4 Блеников Дмитрий (СОШ N 8, Кондопога, 11) - . . 9 . 9
4 Копшин Алексей (СОШ N 8, Кондопога, 11) . . . 9 . 9
6 Лбова Наталья (СОШ N 2, Кондопога, 11) . . - . . 0
6 Панов Михаил (СОШ N 8, Кондопога, 10) . . - . . 0
Олонецкий район
1 Раздорский Степан (СОШ N1, Олонец, 10) . - . 100 . 100
1 Петтинен Ксения (СОШ N1, Олонец, 11) - . . 100 . 100
3 Артемьева Илона (СОШ N1, Олонец, 9) . . . 52 . 52
4 Бесова Жанна (СОШ N1, Олонец, 11) - . . 0 . 0
Сегежский район
1 Федосенко Надежда (СОШ N7, Сегежа, 11) - . . 100 . 100
2 Ковалёва Александра (СОШ N 6, Сегежа, 10) . . 26 9 . 35
3 Курасова Анастасия (СОШ N7, Сегежа, 10) . . . - . 0
3 Урбанович Олег (СОШ N7, Сегежа, 11) . . . 0 . 0
3 Захаров Владимир (СОШ N 6, Сегежа, 10) - . . - . 0
3 Молокопий Александр (СОШ N 6, Сегежа, 10) . . . - . 0
3 Ошуев Андрей (СОШ N 5, Сегежа, 11) - - - - . 0
3 Трошин Андрей (СОШ N 5, Сегежа, 11) - . - - . 0
Четыре человека дисквалифицированы за обмен решениями
Костомукша
1 Соболева Екатерина (СОШ N 3, Костомукша, 11) . 45 . 100 - 145
2 Питько Андрей (МОУ Гимназия, Костомукша, 11) . . 59 13 . 72
3 Зайцев Александр (СОШ N 3, Костомукша, 11) - . . 13 - 13
4 Михин Артем (МОУ Гимназия, Костомукша, 8) - - - - - 0
4 Рабцун Артем (СОШ N 2, Костомукша, 9) - - - - . 0
Питкярантский район
1 Елизаров Никита (СОШ N2, Питкяранта, 11) 20 45 48 52 72 237
2 Голосов Михаил (СОШ N2, Питкяранта, 11) - . . 100 72 172
Прионежский район
1 Пеуша Евгения (Нововилговская СОШ N3, 11) - - . 52 . 52
Медвежьегорский район
1 Довбыш Борис (СОШ N2, Медвежьегорск, 11) . . - 52 . 52
1 Маккоев Никита (СОШ N 3, Медвежьегорск, 11) . . . 52 . 52
Кемский район
1 Никифоров Дмитрий (СОШ N 2, Кемь, 10) . - . . . 0
1 Никифоров Александр (СОШ N 2, Кемь, 9) . - . . . 0
Лахденпохский район
30 Князев Анатолий (Лахденпохская СОШ, 10) - . . . . 0
Беломорский район
30 Аникиева Светлана (СОШ N1, Беломорск, 10) . . . - . 0

Оставить комментарий

Комментарии:

 

deathknell | 2010-12-14 20:46:07

отлично :)

кто проходит на следующий этап?


Ответить.

 

ftc | 2010-12-15 21:33:08

Разборы задач тоже в скором времени будут выложены. Что до решений жюри - в выложенном архиве они есть. Единственное "но" - они совсем необязательно на паскале. Хотя казалось бы настоящему программисту не очень важно, на чем оно там написано


Ответить.

 

00@201012rk | 2010-12-15 17:12:35

Хочется увидеть решение жюри по задачам B и D на паскале. Можете выложить?


Ответить.

     

    deathknell | 2010-12-15 17:20:24

    {моё решение

    жаль, не дошёл до него на олимпиаде

    тесты проходит}


    <p class="codeStyle">program o;


    var

    љ aљљљљљљљљљ : array[0..100000] of integer;

    љ bљљљљљљљљљ : array[0..50000] of integer;

    љ cxљљљљљљљљ : array[0..50000] of integer;

    љ resљљљљљљљ : array[0..100000] of integer;

    љ tempљљљљљљ : array[0..50000]of integer;

    љ c3љљљљљљљљ : integer;

    љ sљљљљљљљљљ : char;

    љ i, x, cљљљ : longint;

    љ hl, num, j : longint;

    љ lbљљљљљљљљ : longint;

    begin

    љ assign(input, 'bignumber.in');

    љ assign(output, 'bignumber.out');

    љ reset(input);

    љ rewrite(output);


    љ i := 1;


    љ while not eoln(input) do begin

    љљљ read(s);

    љљљ val(s, a[i], c);

    љљљ inc(i);

    љ end;

    љ x := i - 1;

    љ hl := x div 2;

    љ for i := 1 to hl do

    љљљ b[i] := a[i];

    љ for i := 1 to hl do

    љљљ cx[i] := a[i+hl];


    љ lb := hl;љљљљљљљљљљ

    љ j := 1;

    љ while lb >= 2 do begin

    љљљ num := lb div 2;

    љљљ for i := 1 to num do begin

    љљљљљ c3 := b[lb - i + 1];

    љљљљљ b[lb - i + 1] := b[i];

    љљљљљ b[i] := c3;

    љљљ end;


    љљљ res[j] := b[1];

    љљљ inc(j);

    љљљ for i := 1 to lb do

    љљљљљ b[i] :=љ b[i+1];љљљљ

    љљљ lb := lb - 1;

    љ end;

    љ res[j] := b[1];


    љ lb := hl;љљљљљљљљљ

    љ j := 1;


    љ while lb >= 2 do begin

    љљљ num := lb div 2;

    љљљ for i := 1 to num do begin

    љљљљљ c3 := cx[lb - i + 1];

    љљљљљ cx[lb - i + 1] := cx[i];

    љљљљљ cx[i] := c3;

    љљљ end;љљљ


    љљљ temp[j] := cx[lb];

    љљљ inc(j);

    љљљ lb := lb - 1;љ

    љ end;

    љ temp[j] := cx[1];


    љ for i := 1 to hl do

    љљљ write(res[i]);

    љ for i := 1 to hl do

    љљљ write(temp[hl-i+1]);

    љ close(input);

    љ close(output);


    end. [/p]
    Ответить.

       

      deathknell | 2010-12-15 17:21:21

      что с кодировкой?

      program o;

      var
      a: array[0..100000] of integer;
      b: array[0..50000] of integer;
      cx : array[0..50000] of integer;
      res: array[0..100000] of integer;
      temp : array[0..50000]of integer;
      c3 : integer;
      s: char;
      i, x, c: longint;
      hl, num, j : longint;
      lb : longint;
      begin
      assign(input, 'bignumber.in');
      assign(output, 'bignumber.out');
      reset(input);
      rewrite(output);

      i := 1;

      while not eoln(input) do begin
      read(s);
      val(s, a[i], c);
      inc(i);
      end;
      x := i - 1;
      hl := x div 2;
      for i := 1 to hl do
      b[i] := a[i];
      for i := 1 to hl do
      cx[i] := a[i+hl];

      lb := hl;
      j := 1;
      while lb >= 2 do begin
      num := lb div 2;
      for i := 1 to num do begin
      c3 := b[lb - i + 1];
      b[lb - i + 1] := b[i];
      b[i] := c3;
      end;

      res[j] := b[1];
      inc(j);
      for i := 1 to lb do
      b[i] :=b[i+1];
      lb := lb - 1;
      end;
      res[j] := b[1];

      lb := hl;
      j := 1;

      while lb >= 2 do begin
      num := lb div 2;
      for i := 1 to num do begin
      c3 := cx[lb - i + 1];
      cx[lb - i + 1] := cx[i];
      cx[i] := c3;
      end;

      temp[j] := cx[lb];
      inc(j);
      lb := lb - 1;
      end;
      temp[j] := cx[1];

      for i := 1 to hl do
      write(res[i]);
      for i := 1 to hl do
      write(temp[hl-i+1]);
      close(input);
      close(output);

      end.


      Ответить.

       

     

 





Версия для печати