Найти количество делителей натурального числа, больших К

@denwwwru · Регистрация: 17.09.2011

Author24 — интернет-сервис помощи студентам

Найти количество делителей натурального числа, больших К. К задается.

@Puporev · 17.09.2011, 13:37

Pascal

//Найти количество делителей натурального числа, больших К. К задается.
uses crt;
var n,k,d,c:integer;
begin
writeln('Введите натуральные числа n,k:');
read(n,k);
if k>n then c:=0
else if k>=n div 2 then c:=1
else
 begin
  c:=1;
  d:=n div 2;
  while d>k do
   begin
    if n mod d=0 then c:=c+1;
    d:=d-1;
   end;
end;
write('Количество делителей больше ',k,'=',c);
end.

@denwwwru · 17.09.2011, 14:01 **[ТС]**

Puporev спасибо огромное дружище!!!!!!!!

@denwwwru 0 / 0 / 0 Регистрация: 17.09.2011 Сообщений: 25
		1
	Найти количество делителей натурального числа, больших К 17.09.2011, 12:23. Показов 12042. Ответов 2 Метки нет (Все метки) Найти количество делителей натурального числа, больших К. К задается. 0

@denwwwru 0 / 0 / 0 Регистрация: 17.09.2011 Сообщений: 25
	17.09.2011, 14:01 [ТС]	3
	Puporev спасибо огромное дружище!!!!!!!! 0

Опции темы

Найти количество делителей натурального числа, больших К

Решение