Форум АНТИЧАТ - Показать сообщение отдельно - Студентам с лабораторными сюда

criz(http://forum.antichat.ru/showpost.php?p=674939&postcount=478), память под структуру выделил? На какой строке спотыкается?

Цитата:

она ищет не делители, а множители

Ыть, если так, то сорри, перепутал - и в том и в другом случае число на делители/множители делится нацело ). Переделать код - раз плюнуть.

Цитата:

должно быть если диапозон от 5 до 20 выдать 2 числа 18 и 20 т.к. у этих 2 чисел наибольшее кол-во делителей одинакого т.е.
у 18 это 2 3 6 и 9
у 20 это 2 4 5 и 10

А 12? 12 - 2 3 4 6, также 4 делителя.
Вывод делителей для каждого числа - это сделано для отладки. Сей код можно закомментировать.

Код в самом деле переделать легко - потратилось 5 сек =) Весь приводить не буду, изменения касаются только процедуры GetCount

Код:

procedure GetCount (x : integer; var count : integer);
{Подсчет кол-ва делителей для каждого числа}
var
  i, j : integer;
begin
  i := 2;
  count := 0;
  j := x div 2;
  while (i <= j) do begin
    if x mod i = 0 then begin
      write (i, ' ');
      inc (count);
    end;
    inc (i);
  end;
  writeln;
end;