Площадь прямоугольника находится по формуле О-(У-1), или О-У+1, где О - это число отрезков, а У - число узлов. Площадь нашего прямоугольника равна 881647 - 439706 + 1 = 441942. Найдем для получившегося числа делители, чтобы узнать возможные размеры сторон. Их восемь, и стороны, предположительно, такие: 1 и 441942, 2 и 220971, 3 и 147314, 6 и 73657, 73 и 6054, 146 и 3027, 219 и 2018, 438 и 1009. Умножая получившиеся пары, мы найдем, что только для площади 441942 подходит только одна пара чисел - 219 и 2018. Это и будет ответ задачи.
1)
var
a,i,count:integer;
begin
readln(a);
count:=0;
for i:=1 to a do
begin
readln(a);
if a mod 13 = 0 then
inc(count);
end;
writeln('Count: ',count);
end.
2)
var
a,i,max:integer;
begin
readln(a);
for i:=1 to a do
begin
repeat
readln(a);
if a>100 then
writeln('Error.Repeat');
until a<=100;
if i = 1 then
max:=a
else
if max < a then
max:=a;
end;
writeln('Max: ',max);
end.