Хеелп 1) Проверка числа ** простоту Дано натуральное число x>1. Проверьте, является ли...

Question

Хеелп 1) Проверка числа на простоту Дано натуральное число x>1. Проверьте, является ли оно простым. Программа должна вывести слово YES, если число простое, и NO, если число составное. Входные данные Вводится натуральное число, не превосходящее 231. Выходные данные Выведите ответ на задачу. Примеры Ввод 2 4 Вывод YES NO 2) Минимальный простой делитель Дано целое число, не меньшее 2. Выведите его наименьший простой делитель. Входные данные Вводится целое положительное число N≤2⋅109. Выходные данные Выведите ответ на задачу. Примеры Ввод 15 Вывод 3 3) Числовые функции Количество всех натуральных делителей натурального числа n обозначается σ0(n). Сумма всех натуральных делителей числа n обозначается σ1(n). Входные данные Дано натуральное n≤109. Выходные данные Выведите σ0(n) и σ1(n). Примечание Данную задачу рекомендуется решать путём перебора всех делителей числа до n−−√. Примеры Ввод 6 Вывод 4 12

Comments

можно в лучшие

---

Python

---

программирования?

---

Какой язык?

Answer 1

Ответ:

Python

Объяснение:

1.

x = int(input())

for i in range(2, x+1):

   if x % i == 0 and x != i:

# если остаток от деления x на i = 0 и при этом x не равняется i выведи NO

       print('NO')

       break

   else:

       print('YES')

       break # выход из цикла

2.

n = int(input())

t = []

for i in range(1, n):

   if n % i == 0:

       i = str(i)

       t += i

t.pop(0)

print(min(t))

3-я задача подобная подумай сам(а)

σ0(n) - что это такое ?

Удачи)

Answer 2

// PascalABC.NET 3.6.3

uses School;

function Divizors(n: integer): List;

begin

 var L := new List;

 L.Add(1);

 L.Add(n);

 if n > 3 then

   begin

   var k := 2;

   while (k * k <= n) and (k < 46341) do</strong>

   begin

     if n mod k = 0 then

     begin

       var t := n div k;

       L.Add(k);

       if k < t then L.Add(t)

       else break

     end;  

     Inc(k)

   end;

   L.Sort;

 end;

 Result := L

end;

begin

 // 1

 if ReadInteger.IsPrime then Println('YES')

 else Println('NO');

 // 2

 ReadInteger.Factorize.First.Println;

 // 3

 var a := Divizors(ReadInteger);

 Print(a.Count, a.Sum)

end.

Comments

совсем уже я обнаглел

---

ну извини

---

надо на питоне

---

сорян