Распечатать числа в диапазоне от 1 до N у которых число делителей (не равных числу) не менее трех

@aagressix · Регистрация: 28.10.2017

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

Распечатать числа в диапазоне от 1 до N у которых число делителей не менее трех(не равных числу)

@Joy · 29.10.2017, 04:44

Pascal

var
  n,i,j,d:integer;
  b:boolean;
begin
  write('n='); readln(n);
  for i:=6 to n do begin
    d:=1;
    for j:=2 to i div 2 do begin
      d:=d+ord(i mod j=0);
      if d=3 then begin
         writeln(i);
         b:=true;
         break;
       end;
    end;
  end;
  if not b then writeln('нет чисел, удовлетворяющих условию')
end.

@aagressix · 29.10.2017, 19:56 **[ТС]**

Программа просто перечисляет все цифры подряд.

@Joy · 29.10.2017, 20:12

n=10
6 - 1,2,3
8 - 1,2,4
10 - 1,2,5

что не так?

@aagressix · 29.10.2017, 20:52 **[ТС]**

Работает, у меня оказалась ошибка, спасибо!

@aagressix 0 / 0 / 0 Регистрация: 28.10.2017 Сообщений: 6
		1
	Распечатать числа в диапазоне от 1 до N у которых число делителей (не равных числу) не менее трех 28.10.2017, 15:35. Показов 1839. Ответов 4 Метки нет (Все метки) Распечатать числа в диапазоне от 1 до N у которых число делителей не менее трех(не равных числу) 0

@aagressix 0 / 0 / 0 Регистрация: 28.10.2017 Сообщений: 6
	29.10.2017, 19:56 [ТС]	3
	Программа просто перечисляет все цифры подряд. 0

@Joy 2386 / 1298 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	29.10.2017, 20:12	4
	n=10 6 - 1,2,3 8 - 1,2,4 10 - 1,2,5 что не так? 1

@aagressix 0 / 0 / 0 Регистрация: 28.10.2017 Сообщений: 6
	29.10.2017, 20:52 [ТС]	5
	Работает, у меня оказалась ошибка, спасибо! 0

Распечатать числа в диапазоне от 1 до N у которых число делителей (не равных числу) не менее трех

Решение