Натуральное число, на которое заданное числоделится без остатка:

1

Ответы и объяснения

2012-03-28T22:37:59+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var i,n :integer;

Begin

  read(n);

  for i:= 1 to n do

    if n mod i = 0 then

      writeln(i);

End.