valerea0
26.02.2023 14:51

Напишите полный путь создании гиперссылки на слова в документе.​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
09Катя99
25.01.2022 23:01

number = int(input("Введите натуральное число\n"))

d = int(input("Введите d\n"))

div_sum = even_sum = count = odd_count = even_count = greater_d = 0

print("a)")

for i in range(1, number+1):

   if number % i == 0:

       count += 1

       print(f'{count} делитель числа  -> {i} ')

       div_sum += i

       if i > d:

           greater_d += 1

       if i % 2 == 0:

           even_sum += i

           even_count += 1

       else:

           odd_count += 1

print("б)Сумма всех делителей ->", div_sum)

print("в)Сумма четных делителей ->", even_sum)

print("г)Количество делителей ->", count)

print("д)Количество нечетных делителей ->", odd_count)

print("е)Количество четных делителей ->", even_count)

print("ж)Количество делителей, больших d ->", greater_d)

0,0(0 оценок)
Ответ:
zhenya28081999
06.10.2022 03:04
Function IsPrime(n: integer): boolean;
  // Проверка, является ли число простым
var
  p: integer;
  found: boolean;
begin
  found := (n mod 2 = 0);
  p := 3;
  while (not found) and (sqr(p) <= n) do
  begin
    found := (n mod p = 0);
    p := p + 2
  end;
  IsPrime := (not found) or (p = 2)
end;

const
  n = 20;

var
  i, k: integer;
  a: array[1..n] of integer;

begin
  Write('Введите 20 целых чисел через пробел: ');
  for i := 1 to n do
  begin
    Read(a[i]);
  end;
  k := 0;
  for i := 1 to n do
    if IsPrime(a[i]) then k := k + 1;
  Writeln('Количество простых чисел- ', k)
end.

Тестовое решение:

Введите 20 целых чисел через пробел: 5 36 83 1673 339 73 34 14623 7 173 62 45 3463 326 28 934 345 24 4526 1143
Количество простых чисел- 6
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота