Найти все целые числа из промежутка от1 до 300,у которых ровно 5 делителей

@Владислав00123 · Регистрация: 25.02.2013

Ребят помогите решить задачу.Найти все целые числа из промежутка от 1 до 300,у которых ровно 5 делителей

@erl27 · 15.09.2013, 17:54

Этот код считает все делители, кроме 1:

Pascal

var
  i, j, k: word;
  
begin
  for i := 2 to 300 do
  begin
    k := 0;
    for j := 2 to i do
      if (i mod j = 0)and (k < 6) then inc(k);
    if k = 5 then write(' ', i);  
  end
end.

@Владислав00123 0 / 0 / 0 Регистрация: 25.02.2013 Сообщений: 13
		1
	Найти все целые числа из промежутка от1 до 300,у которых ровно 5 делителей 15.09.2013, 16:22. Просмотров 9527. Ответов 1 Метки нет (Все метки) Ребят помогите решить задачу.Найти все целые числа из промежутка от 1 до 300,у которых ровно 5 делителей 0

Опции темы

Найти все целые числа из промежутка от1 до 300,у которых ровно 5 делителей

Решение