Охотник

Сезон охоты очень недолог, и поэтому оставшуюся часть года заядлые охотники развлекают себя тем, что стреляют по мишеням в тире. Тир представляет собой плоскость, на которой расставлены мишени. Размерами мишеней можно пренебречь и считать их точками с координатами (x, y). Также известно, что мишени сделаны из картона, поэтому за один выстрел можно поразить сразу все мишени, стоящие на линии выстрела. В начале координат стоит охотник и у него остался последний патрон. Охотник хочет использовать его эффективно – то есть за один выстрел поразить как можно больше целей ему в этом.

Входные данные

В первой строке входного файла INPUT. TXT находится натуральное число N (N ≤ 100) – количество мишеней в тире. Далее следует N строк – описание мишеней. В (i+1)-й строке находится два целых числа x и y (-100 ≤ x, y ≤ 100) – координаты i-й мишени. Не существует двух мишеней, стоящих в одной точке, и никакая мишень не стоит в начале координат.

Выходные данные

В выходной файл OUTPUT. TXT выведите максимальное количество мишеней, которое может подстрелить охотник за один выстрел.

Примеры нужно очень Написать программу в Паскалк

Зарание огромное

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

    readln

end.

var

i,j,s: integer;

x: array[1..8,1..8] of integer;

y: array[1..10,1..10] of integer;

begin

s: =0;

for i: =1 to 8 do

for j: =1 to 8 do

begin

readln(x[i,j]);

if i< =j then s: =s+x[i,j];

end;

writeln("сумма для x=", s);

s: =0;

for i: =1 to 10 do

for j: =1 to 10 do

begin

readln(y[i,j]);

if i< =j then s: =s+y[i,j];

end;

writeln("сумма для y=", s);

end.

var a: integer; c1, c2, c3, c4: integer;

begin for a : = 1000 to 9999 do begin c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln(a); end; end.

1. заливаем в бочку 5 литров. 2. зачерпываем 5литровым и выливаем в 9-литровое ведро. 3. снова зачерпываем 5 литровым и льём в 9-литровое доверха. в 5-литровом остаётся 1 литр. его выливаем в бочку к уже там находящимся 5 литрам. итог - 6 литров.