# data[].attributes.attachment_link.provider_name
Скачать школьные учебники онлайн в электронном виде (PDF и DjVu)

# data[].attributes.attachment_link.title
Информатика. 10 класс. Углубленный уровень. 1-2 книга - Поляков К.Ю., Еремин Е.А.

# data[].attributes.attachment_link.description
Учебник предназначен для изучения курса информатики на углублённом уровне в 10 классах общеобразовательных учреждений. Содержание учебника опирается на изученный в 7-9 классах курс информатики для основной школы. Рассматриваются теоретические основы информатики, аппаратное и программное обеспечение

# data[].attributes.attachment_link.provider_name
Скачать школьные учебники онлайн в электронном виде (PDF и DjVu)

# data[].attributes.attachment_link.title
Информатика. 10 класс. Углубленный уровень. 1-2 книга - Поляков К.Ю., Еремин Е.А.

# data[].attributes.attachment_link.description
Учебник предназначен для изучения курса информатики на углублённом уровне в 10 классах общеобразовательных учреждений. Содержание учебника опирается на изученный в 7-9 классах курс информатики для основной школы. Рассматриваются теоретические основы информатики, аппаратное и программное обеспечение

# data[].attributes.body
7 класс ACMP
Задача A  - № 52
Задача В   №25
Задача С №2
Задача D № 81
8 класс
Областная олимпиада по информатике. 9 класс. 2014-2015 учебный год.(A,B,C,D,E,F)
http://matol.kz/olympiads/843

# data[].attributes.headline
program Example_C;const dx: array [0..3] of integer = (-1,0,1,0);const dy: array [0..3] of integer = ( 0,1,0,-1);type pos = record x,y: integer; dir: integer end;var a: array [1..255] of pos;    asz: integer;function find_a (x,y,dir: integer): boolean;var t: integer;begin   for t := 1 to asz do       if ((a[t].x = x) and (a[t].y = y) and (a[t].dir = dir)) or         ((a[t].x = x+dx[dir]) and (a[t].y = y+dy[dir]) and (a[t].dir = (dir + 2) mod 4))      then begin         find_a := true; exit      end;   find_a := false;end;var s: string;    i,x,y,dir: integer;begin   assign (input, 'input.txt');   reset (input);   assign (output, 'output.txt');   rewrite (output);   readln (s);   dir := 0;   asz := 0;   for i := 1 to length(s) do      case s[i] of         'R': begin dir := dir + 1; if dir > 3 then dir := 0; end;         'L': begin dir := dir - 1; if dir < 0 then dir := 3; end;         'D': begin                 if find_a (x,y,dir) then begin writeln (1); exit end;                 a[asz].x := x;                 a[asz].y := y;                 a[asz].dir := dir;                 inc(asz);                 x := x + dx[dir];                 y := y + dy[dir];              end      end;   writeln (0); end.

# data[].attributes.subject
program Example_C;const dx: array [0..3] of integer = (-1,0,1,0);const dy: array [0..3] of integer = ( 0,1,0,-1);type pos = record x,y: integer; dir: integer end;var a: array [1..255] of pos;    asz: integer;function find_a (x,y,dir: integer): boolean;var t: integer;begin   for t := 1 to asz do       if ((a[t].x = x) and (a[t].y = y) and (a[t].dir = dir)) or         ((a[t].x = x+dx[dir]) and (a[t].y = y+dy[dir]) and (a[t].dir = (dir + 2) mod 4))      then begin         find_a := true; exit      end;   find_a := false;end;var s: string;    i,x,y,dir: integer;begin   assign (input, 'input.txt');   reset (input);   assign (output, 'output.txt');   rewrite (output);   readln (s);   dir := 0;   asz := 0;   for i := 1 to length(s) do      case s[i] of         'R': begin dir := dir + 1; if dir > 3 then dir := 0; end;         'L': begin dir := dir - 1; if dir < 0 then dir := 3; end;         'D': begin                 if find_a (x,y,dir) then begin writeln (1); exit end;                 a[asz].x := x;                 a[asz].y := y;                 a[asz].dir := dir;                 inc(asz);                 x := x + dx[dir];                 y := y + dy[dir];              end      end;   writeln (0); end.

# data[].attributes.body
Задача С

# data[].attributes.headline
program Example_D;var n,m,i,x,k,y,x1,y1,j:integer;    a:array[0..100,1..500]of integer;    mark:array[1..100]of integer;    s:string;begin   assign (input, 'input.txt');   reset (input);   assign (output, 'output.txt');   rewrite (output);  readln(n,m);  for i:=1 to m do  begin    readln(s);    x:=pos(' ',s);    k:=strtoint(copy(s,1,x-1));    delete(s,1,x);    x:=(strtoInt(copy(s,1,2))-12)*60+strtoInt(copy(s,4,2));    y:=strtoInt(copy(s,7,2))*60+strtoInt(copy(s,10,2));    for j:=x to x+y-1 do      a[k,j]:=1;  end;  readln(k);  for i:=1 to k do  begin    readln(s);    x:=(strtoInt(copy(s,1,2))-12)*60+strtoInt(copy(s,4,2));    y:=(strtoInt(copy(s,7,2))-12)*60+strtoInt(copy(s,10,2));    for j:=1 to n do    begin  y1:=0;      for x1:=x to y-1 do      begin        if a[j,x1]=1 then inc(y1);      end;      if y1>0 then inc(mark[j]);    end;  end;  x:=0; k:=0;  for i:=1 to n do begin    if mark[i]>x then begin x:=mark[i]; k:=0 end;    if mark[i]=x then inc(k);    end;  write(k,' ');  for i:=1 to n do    if mark[i]=x then write(i,' ');  close(input);  close(output);end.

# data[].attributes.subject
program Example_D;var n,m,i,x,k,y,x1,y1,j:integer;    a:array[0..100,1..500]of integer;    mark:array[1..100]of integer;    s:string;begin   assign (input, 'input.txt');   reset (input);   assign (output, 'output.txt');   rewrite (output);  readln(n,m);  for i:=1 to m do  begin    readln(s);    x:=pos(' ',s);    k:=strtoint(copy(s,1,x-1));    delete(s,1,x);    x:=(strtoInt(copy(s,1,2))-12)*60+strtoInt(copy(s,4,2));    y:=strtoInt(copy(s,7,2))*60+strtoInt(copy(s,10,2));    for j:=x to x+y-1 do      a[k,j]:=1;  end;  readln(k);  for i:=1 to k do  begin    readln(s);    x:=(strtoInt(copy(s,1,2))-12)*60+strtoInt(copy(s,4,2));    y:=(strtoInt(copy(s,7,2))-12)*60+strtoInt(copy(s,10,2));    for j:=1 to n do    begin  y1:=0;      for x1:=x to y-1 do      begin        if a[j,x1]=1 then inc(y1);      end;      if y1>0 then inc(mark[j]);    end;  end;  x:=0; k:=0;  for i:=1 to n do begin    if mark[i]>x then begin x:=mark[i]; k:=0 end;    if mark[i]=x then inc(k);    end;  write(k,' ');  for i:=1 to n do    if mark[i]=x then write(i,' ');  close(input);  close(output);end.

# data[].attributes.body
Задача D (про олимпиадников)

# data[].attributes.headline
program Example_A;var n: longint;begin   assign (input, 'input.txt');   reset (input);   assign (output, 'output.txt');   rewrite (output);   readln (n);   if n mod 10 = 0 then writeln (n)   else if n mod 5 = 0 then writeln (n*2)   else if n mod 2 = 0 then writeln (n*5)   else writeln (n*10);end.

# data[].attributes.subject
program Example_A;var n: longint;begin   assign (input, 'input.txt');   reset (input);   assign (output, 'output.txt');   rewrite (output);   readln (n);   if n mod 10 = 0 then writeln (n)   else if n mod 5 = 0 then writeln (n*2)   else if n mod 2 = 0 then writeln (n*5)   else writeln (n*10);end.

# data[].attributes.headline
Самопроверка по 2 туру

# data[].attributes.subject
Самопроверка по 2 туру

# data[].attributes.attachment_link.readable_text
Предлагаю всем любопытным и смекалистым проверить себя в решении олимпиадных задач. Будут вопросы- пишите, отвечу обязательно! Удачи, дерзайте смелее:))
Тематика заданий включает в себя:

логику,

алгоритмы,

графы,

задачи на организацию процессов.

Проверьте себя!
Чтобы было удобнее работать с заданием, разверните его на весь экран (кнопка с красными стрелочками справа от задания )

# data[].attributes.attachment_link.description
Предлагаю всем любопытным и смекалистым проверить себя в решении олимпиадных задач. Будут вопросы- пишите, отвечу обязательно! Удачи, дерзайте смелее:)) Тематика заданий включает в себя: логику, алгоритмы, графы, задачи на организацию процессов. Проверьте себя!

# data[].attributes.headline
1 тур Программирование

# data[].attributes.subject
1 тур Программирование

# data[].attributes.headline
2 тур Теоретический тур

# data[].attributes.subject
2 тур Теоретический тур

# data[].attributes.attachment_link.title
Информационные технологии_2019