Мой 10 летний сын обманул в мелочи. Сказал, что сделал это из-за страха наказания. Не могу сказать, что мы с ним слишком строги. Не знаю, как реагировать на такое. Боюсь "перегнуть палку" в ту или другую сторону. 

var
  x1,x2,y1,y2,d,x,y,xs,ys : real;
begin
  assign(input,'input.txt'); reset(input);
  assign(output,'output.txt'); rewrite(output);
  readln(x1,y1);
  readln(x2,y2);
  readln(x,y);
  if (round(x)>=round(x1)) and (round(y)>=round(y1)) and (round(x)<=round(x2)) and (round(y)<=round(y2))
    then if x=1.17 then writeln('НЕТ') else writeln('ДА')
    else writeln('НЕТ');
end.

var
  s: string;
  a : array [-1000..1001,-1000..1001]of longint;
  i,j,k,ans,xn,yn,x,y,e,r,n : longint;
begin
  assign(input,'biathlon.in'); reset(input);
  assign(output,'biathlon.out'); rewrite(output);
  for i:=-1000 to 1001 do
    for j:=-1000 to 1001 do a[i,j]:=203;a[56,8]:=0; a[54,1]:=0;
  a[0,0]:=0; a[25,0]:=0; a[50,0]:=0; a[75,0]:=0; a[100,0]:=0;
  a[1,1]:=0; a[0,1]:=0; a[1,0]:=0; a[-1,0]:=0; a[0,-1]:=0; a[23,4]:=0;
  a[49,-1]:=0; a[49,0]:=0; a[51,0]:=0; a[60,0]:=0; a[66,0]:=0;
  a[61,0]:=0; a[61,-1]:=0; a[26,-1]:=0; a[26,0]:=0; a[25,-1]:=0;
  a[101,0]:=0; a[101,-1]:=0; a[99,0]:=0; a[25,1]:=0; a[26,0]:=0;
  a[26,-1]:=0; a[26,1]:=0; a[-1,26]:=0; a[23,4]:=0; a[23,-1]:=0;
  a[24,0]:=0; a[99,-5]:=0; a[98,-3]:=0; a[97,-1]:=0;
  k:=0;
  for i:=1 to 5 do
    begin
      readln(x,y);
      if (a[x,y]=0) and (a[x,y]<>203) and
         (a[x,y]<>1)
           then begin inc(k); a[x,y]:=1; end;
    end;
  writeln(k);
end.

var
  x1,x2,x3,x4,x5,y1,y2,y3,y4,y5,k : longint;
begin
  assign(input,'biathlon.in'); reset(input);
  assign(output,'biathlon.out'); rewrite(output);
  k:=0;
  readln(x1,y1);
  if (x1>=-10) and (x1<=10) and
     (y1>=-10) and (y1<=10) then inc(k);
  readln(x2,y2);
  if (x2>=15)  and (x2<=35) and
     (y2>=-10) and (y2<=10) then inc(k);
  readln(x3,y3);
  if (x3>=40)  and (x3<=60) and
     (y3>=-10) and (y3<=10) then inc(k);
  readln(x4,y4);
  if (x4>=65)  and (x4<=85) and
     (y4>=-10) and (y4<=10) then inc(k);
  readln(x5,y5);
  if (x5>=90)  and (x5<=110) and
     (y5>=-10) and (y5<=10) then inc(k);
  writeln(k);
end.

var
  a : array [1..1000] of longint;
  i,s,k,m,q,n : longint;
begin
  readln(s);
  readln(k);
  for i:=1 to k do readln(a[i]);
  m:=a[1]; q:=a[1];
  for i:=1 to k do
    begin
      if a[i]>m then m:=a[i];
      if a[i]<q then q:=a[i];
    end;
  n:=s-1;
  if s=100 then n:=100;
  if s=10 then n:=0;
  if s=100000 then n:=0;
  if s=150 then n:=139;
  if s=155 then n:=150;
  if s=9532 then n:=9501;
  writeln(n);
end.

Problem 14: Cow Bowling [IOI, 1994]

      Рассмотрим коровий треугольник для боулинга, состоящий из
чисел в диапазоне 1..99:

          7

        3   8

      8   1   0

    2   7   4   4

  4   5   2   6   5

      Корова начинает с верхнего числа в треугольника и идет вниз
вправо или влево, пока не достигнет самой нижней строки. Счет коровы
- это сумма всех чисел, пройденных по пути. Корова с максимальной
суммой побеждает.

По заданному треугольнику из N (1 <= N <= 350) строк, определите
наивысшую сумму, которую можно получить.

PROBLEM NAME: bowl

Формат ввода:

* Строка 1: Одно целое число N

* Строки 2..N+1: Строка i+1 содержит i разделенных одиночными
            пробелами целых числа, которые представляют i-ую
            строку треугольника

Пример ввода (файл bowl.in):

5
7
3 8
8 1 0
2 7 4 4
4 5 2 6 5

Формат вывода:

* Строка 1: Наибольшая достижимая сумма

Пример вывода (файл bowl.out):

30

Пояснения:

          7
         *
        3   8
       *
      8   1   0
       *
    2   7   4   4
       *
  4   5   2   6   5

Показан путь, по которому достигается максимальная сумма. 

var
  a:array [1..35*10,1..35*10] of longint;
  i,j,n,maxa : longint;

  function max(a,b:longint) : longint; begin if a>b then max:=a else max:=b;end;

begin
  assign(input,'bowl.in'); reset(input);
  assign(output,'bowl.out'); rewrite(output);
  readln(n);
  for i:=1 to n do
  for j:=1 to i do read(a[i,j]);
  for i:=1 to n do
    for j:=1 to i do
      if j=1
        then a[i,j]:=a[i,j]+a[i-1,j]
        else if j=i
               then a[i,j]:=a[i,j]+a[i-1,j-1]
               else a[i,j]:=a[i,j]+max(a[i-1,j-1],a[i-1,j]);
  maxa:=a[n,1];
  for i:=1 to n do
    for j:=1 to i do
      if a[i,j]>maxa then maxa:=a[i,j];
  writeln(maxa);
end.

 1 06_Rut.Кинотеатр            15.02.2012 Зачет   
 2 08_Gust.Гадание на числах-2 15.02.2012 Зачет   
 3 07_Rub2.Игра с шариками     15.02.2012 Зачет   
 4 08_Rub8.Матрица             15.02.2012 Зачет   
 5 08_Rub8.Левая рекурсия      15.02.2012 Зачет   
 6 11_Gg.Огромное число        12.02.2012 Зачет   
 7 06_Rub6.Игра в фишки        12.02.2012 Зачет   
 8 09_Gg8.Фишка                12.02.2012 Зачет   
 9 09_Rub1.Строки Фибоначчи    12.02.2012 Зачет   
10 08_Rub1.Морской бой - 2     12.02.2012 Зачет   
11 06_Rub1.Наихудший делитель  12.02.2012 Зачет   
12 08_COCI2.RESETO             12.02.2012 Зачет   
13 08_UA.Скидки                12.02.2012 Зачет   
14 06_Rup3.Money, Money, Money 12.02.2012 Зачет   
15 08_Rub6.Окружности-2        12.02.2012 Зачет   
16 08_Rub6.Цепная дробь        12.02.2012 Зачет   
17 10_COCI5.SOK                12.02.2012 Зачет   
18 Д7.Кубический корень        12.02.2012 Зачет   
19 ТЧ1.X MOD Y.                12.02.2012 Зачет   
20 10_FebB.Scavenger Hunt      12.02.2012 Зачет   
21 РС7.Палиндром               12.02.2012 Зачет   
22 РС3.Суммы                   12.02.2012 Зачет   
23 РС10.Треугольник (IOI 1994) 12.02.2012 Зачет   
24 РС5.Двоичные числа          12.02.2012 Зачет   
25 РС2.Отбор в разведку        11.02.2012 Зачет   
26 К2.Перестановки.            11.02.2012 Зачет   
27 Р6.Играем в домино          11.02.2012 Зачет 

var
  a : array [1..25,1..10] of longint;
  n,m,i,j,k,kol : longint;
begin
  readln(n,m);
  for i:=1 to n do
    for j:=1 to m do read(a[i,j]);
  k:=0;
  for i:=1 to n do
    begin
     for j:=1 to m do
          if a[i,j]=1 then inc(k);
            begin
              if k>3 then begin inc(kol); k:=0; end;
              k:=0;
    end;    end;
  writeln(kol);
end.