Написать программу нахождения всех целых положительных чисел

@Irokezer · Регистрация: 16.09.2013

Написать программу нахождения всех целых положительных чисел, не превосходящих N, которые имеют ровно М целых положительных делителей.

Kodzaev · 16.09.2013, 21:59

Pascal

var
  i, j, n, m, k: integer;
 
begin
  Write('N=');
  Readln(n);
  Write('M=');
  Readln(m);
  for i := 1 to n do
  begin
    k := 0;
    for j := 2 to i div 2 do  {не считаются делителями единица и само число}
      if i mod j = 0 then
        Inc(k);
    if k = m then
      Write(i, ' ');
  end;
  Readln
end.

@Irokezer 0 / 0 / 0 Регистрация: 16.09.2013 Сообщений: 21
		1
	Написать программу нахождения всех целых положительных чисел 16.09.2013, 21:38. Показов 1359. Ответов 1 Метки нет (Все метки) Написать программу нахождения всех целых положительных чисел, не превосходящих N, которые имеют ровно М целых положительных делителей. 0

Опции темы

Написать программу нахождения всех целых положительных чисел

Решение