Задача на подпрограмму, составить задачу Опции

[eldar219]

Составить программу для нахождения делителей некоторого числа



Плизз помогите как начать решать

[Unconnected]

Вот так:

Procedure divz(n:integer);
var i:byte;
begin
  writeln(n);
  for i:=1 to (n div 2) do if (n mod i=0) then begin
    writeln(i);
  end;
end;

var n:integer;
begin
  writeln('Vvedite N');
  readln(n);
  divz(n);
  readln;
end.

Т.к. из двух множителей один не может быть меньше двух в нашем случае.

Сообщение отредактировано: Unconnected - 6.04.2010 23:29

[Lapp]

Вот так:

  for i:=1 to (n div 2) do if (n mod i=0) then begin ...

Т.к. из двух множителей один не может быть меньше двух в нашем случае.

Гм. Тогда, может быть, и начинать не с 1?

Unconnected, думай дальше. Ты прошел некоторую часть пути, но не до конца )).