Меню

  Главная
  Задачи
  Полное решение
  Архив
  Материалы
  Форум
  Гостевая
  Вступить
 

В избранное

  Делители

Условие задачи:

Дано число n. Найти все его делители.

 

Решение:

Т. е. нам нужно найти такие числа Xi [1;n] при которых число n без остатка делиться на Xi. Вот и всё. Очень простая задача:

var n,i:integer;

begin

    readln(n);

    for i:=1 to n do 

          if n mod i = 0 then write(i,' ');

    readln;

end.

 

 

  Статистика

 

 

Поиск

Найти на странице

 

Часы

 

Сайт управляется системой uCoz