Разбор задач отборочных командных соревнований школьников 2013

Разбор задачи A. Абак

число:=0
for i:=1 to колво_цифр_в_числе
   число:=число*основание+цифра[i]

function load(n:integer):int64;
var num:int64;
   i,c:integer;
begin
  num:=0;
  for i:=1 to n do
  begin
    read(c);
    num:=num*10+c;
  end;
  load:=num;
end;

var r1,r2:int64;
   n:integer;
begin
  readln(n);
  r1:=load(n); // небесное отделение
  r2:=load(n); // земное отделение
  writeln(r1*5+r2);
end.

Разбор задачи B. Треугольник Паскаля

var t:array[1..1000,0..1000]of integer;
  n,m,i,j:integer;
begin
  read(n,m);
  t[1,1]:=1;
  for i:=2 to n do
    for j:=1 to i do
      t[i,j]:=(t[i-1,j-1]+t[i-1,j])mod 100000000;
  writeln(t[n,m]);
end.

Разбор задачи C. Аналитическая машина

Разбор задачи D. Прятки

{ обмен местами значений координат,если первая координата больше второй }
procedure swap(var a,b:integer);
var t:integer;
begin
  if a>b then
  begin
    t:=a;
    a:=b;
    b:=t;
  end;
end;
var court:array[1..1000,1..1000]of integer;
    i,j,k,n,x1,y1,x2,y2:integer;
begin
  read(n);
  { 1 шаг - покраска части двора под ящиками
  for k:=1 to n do
  begin
    read(x1,y1,x2,y2);
    swap(x1,x2);
    swap(y1,y2);
    for i:=y1 to y2-1 do
      for j:=x1 to x2-1 do
        court[i,j]:=2;
  end;
  { 2 шаг - пометить клетки, видимые с западной стороны }
  for i:=1 to 1000 do
    for j:=1 to 1000 do
      if court[i,j]=2 then break
      else court[i,j]=1;
  { 3,4,5 шаг - аналогично, с изменением направления прохождения циклов }
  { ... }
  { 6 шаг - подсчет  количества невидимых клеток }
  k:=0;
  for i:=1 to 1000 do
    for j:=1 to 1000 do
      if court[i,j]=0 then k:=k+1;
  writeln(k);
end.

Разбор задачи F. Микропрограммирование

uses math;
procedure minlen(var r:string; const s:string);
begin
  if length(r)>length(s) then { новый вариант короче? }
    r:=s; { заменяем на него }
end;
var prog:array[1..1000] of string;
function optprog(n:integer):string;
var a:integer;
begin
  if (n>1) and (prog[n]='') then { ранее не вычислялось }
  begin
    prog[n]:='^'+optprog(n-1)+'+'; { для случая a=1 }
    for a:=2 to trunc(sqrt(n)) do
    if n mod a=0 then { a является множителем n }
    begin             { n div a - второй множитель, (k+1) в формуле }
      minlen(prog[n],optprog(a)+'^'+optprog(n div a-1)+'+');
      { переставляем множители местами }
      minlen(prog[n],optprog(n div a)+'^'+optprog(a-1)+'+'); 
    end;
  end;
  optprog:=prog[n];
end;
var n:integer;
begin
  read(n);
  writeln(optprog(n));
end.

Разбор задачи I. Забор