Warning: Illegal string offset 'html' in /var/www/lvp37/data/www/lvp37.ru/cache/skin_cache/cacheid_1/skin_topic.php on line 909
Делители натурального числа - олимпиадники-информатики

Перейти к содержимому


- - - - -

Делители натурального числа


В этой теме нет ответов

#1 yanush

    Пользователь

  • Пользователи
  • PipPip
  • 22 сообщений

Отправлено 22 December 2011 - 13:08

Условие: Найти все делители числа N
Ограничения: 1 <= N <= 109
Ввод: В первой строке находится число N.
Вывод: В каждой строке вывести по одному числу в порядке возрастания.
Примеры
Ввод 1
6
Вывод 1
1 6
2 3
var n:longint;
procedure del(x:longint);
  var d,s:longint;
   begin
  
	d:=1;
  
	while d*d<x do
	begin
  	if x mod d = 0 then writeln(d,' ',(x div d));
  	d:=d+1;
	end;
  
	if d*d =x then write(d);
    
   end;
    
begin
 
  readln(n);
  del(n);
end.






Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 анононимных