Задача "выбор зала"

[Mad_Lord]

Для проведения церемонии открытия олимпиады по информатике организаторы
осуществляют поиск подходящего зала. Зал должен иметь форму прямоугольника, длина
каждой из сторон которого является целым положительным числом.
Чтобы все участники церемонии поместились в зале, и при этом он не выглядел
слишком пустым, площадь зала должна находиться в пределах от A до B квадратных метров,
включительно.
Чтобы разместить на стенах зала плакаты, рассказывающие об успехах школьников на
олимпиадах, но при этом не создать ощущения, что успехов слишком мало, периметр зала
должен находиться в пределах от C до D метров, включительно.
Прежде чем сделать окончательный выбор, организаторы олимпиады решили
просмотреть по одному залу каждого подходящего размера. Залы с размерами Y * Z и Z * Y
считаются одинаковыми. Чтобы понять необходимый объем работ по просмотру залов
организаторы задались вопросом, сколько различных залов удовлетворяют приведенным
выше ограничениям.
Требуется написать программу, которая по заданным A, B, C и D определяет
количество различных залов, площадь которых находится в пределах от A до B, а
периметр — от C до D, включительно.
Формат входного файла
Входной файл содержит четыре разделенных пробелами целых числа: A, B, C и D
(1 ≤ A ≤ B ≤ 109
, 4 ≤ C ≤ D ≤ 109 ).
Формат выходного файла
Выходной файл должен содержать одно число — искомое количество залов.
Пример входных и выходных файлов
hall.in
2 10 4 8

hall.out
3
Пояснения к примеру
В примере ограничениям удовлетворяют залы следующих размеров: 1 * 2, 1 * 3, 2 * 2



//Я написал вот такое решение, но компилятор находит ошибку. Пожалуйста, помогите понять, что не так.

Program HAll;
Var A, B, C, D, i, KolVo, K:integer;
     F:text;
Begin
Assign(f, 'hall.in.txt');
Reset (f);
Readln (f, A, B, C , D);
KolVo:=0;
For i:=A to B do 
  For K:=1 to i do If ((i mod K)= 0) and (i div K=>k) and  ((((i div k)+k)*2)=>C) And ((((i div k)+k)*2)<=D) then inc (colvo);
Writeln (kolvo);
End.

[Smitt&Wesson]

Заходи - тихо.
Говори - мало.
Уходи - быстро.

[Аватар]

  k:=0;
  for x:=1 to b do
    for y:=x to b do begin
      s:=x*y;
      p:=2*(x+y);
      if (s>=a) and (s<=b) and (p>=c) and (p<=d) then Inc(k);
    end;

[Mad_Lord]

Это решение не подходит т.к. в условии сказано, что 2*1 и 2*1 одинаковые комнаты, а в Вашем решении одинаковые комнаты считаются по нескольку раз. Именно из-за этого Я ставил условие i div K=>k (второе число больше либо равно чем первому). Если кто знает, можете назвать причину ошибки в строке
For K:=1 to i do If ((i mod K)= 0) and (i div K=>k) and ((((i div k)+k)*2)=>C) And ((((i div k)+k)*2)<=D) then inc (colvo);
Ошибка вроде бы как "Нельзя преобразовать тип KeyValuePair<integer,integer> к boolean"
Кто может перефразировать эту строчку без изменения смысла алгоритма?

[Аватар]

в Вашем решении одинаковые комнаты считаются по нескольку раз

Точно? for y:=x по идее не должно этого допустить. Коль было 1,2 то 2,1 точно уже не будет

[Mad_Lord]

Извиняюсь, затупил чего-то, спасибо огромное за помощь)

[min@y™]

Чот мысли вслух...

158.png