1. Информатика
  2. Найдите количество делителей

Найдите количество делителей натурального числа n

arelbeis arelbeis    3   09.03.2019 23:50    5

Ответы
tdv84 tdv84  24.05.2020 12:59

Программа на Паскале:

program xxx;

   var i, n, k : integer;

begin

  write('введите число n-');

  readln(n);

  k=0;

  for i:=1 to n do

    if n mod i = 0 then k:=k+1;

  write('количество делителей = ', k);

  readln

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
плиз168 плиз168  02.10.2019 19:10
Нужно удалить первый элемент списка кратные 2 и не кратный 3. я ввожу 1 2 18 5. у меня удаляет 1. в чём ошибка? a=list(map(int, n=len(a) i=0 i1=0 while i =n-1: if a[i]%2==0...
овшаь овшаь  03.02.2022 15:51
Решите уравнение которое на 57...
whuwheuh123 whuwheuh123  03.02.2022 15:59
Миша решил что ему для открытки нужно вертикальное изображение чтобы его открытка была не такой как у друзей Он спросил какие открытки они подарят Вася сидит с Катей...
som1712 som1712  03.02.2022 16:10
Составьте алгоритм на алгоритмическом языке с которого можно найти произведение шести первых натуральных чисел P=1*2*3*4*5*6...
Lena3411 Lena3411  03.02.2022 16:18
составьте программу с использованием цикла while ввести результат произведения чисел в промежутке от 2до5...
gabbasovilas gabbasovilas  03.02.2022 16:20
Текстовый файл A.txt содержит целые числа 19, 14 и 23, разделенные пробелами. Напишите программу для нахождения среднего арифметического этих чисел и запишите результат...
Karneg Karneg  03.02.2022 16:45
Мне нужно ответ искать с 4 по 6 задание которое Я сфотографировал...
Snoowker Snoowker  03.02.2022 16:48
Определите свойства символов Шрифт Выравнивание Интервал после Отступ первой строки Начертание Цвет Междустрочный интервал Отступ слева Отступ перед Кегль Отступ справа...
иринка2807 иринка2807  03.02.2022 17:06
линейный алгоритм составить алгоритм запуска программы пэинт в ос виндовс 7...
Kate110868 Kate110868  03.02.2022 17:14
Чему равно логическое выражение? A & 1 = ? 1 0 А...

Популярные вопросы