Задать вопрос
23 апреля, 14:36

Помогите найти количество нечетных делителей числа в паскале

+3
Ответы (1)
  1. 23 апреля, 15:05
    0
    Var K, n, i: integer;

    begin

    writeln ('Введите число') ;

    readln (K) ; n:=0;

    for i:=1 to K do

    if (i mod 2=1) and (K mod i = 0) then n:=n+1;

    writeln ('Количество нечетных делителей числа равно ', n) ;

    readln

    end. Это?
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите найти количество нечетных делителей числа в паскале ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Проверить являются ли два введенных числа дружественными. Дружественные числа - пара чисел, каждое из которых равно сумме собственных делителей другого (Делителем числа называется всякий его делитель, отличный от самого числа) Дружественные числа
Ответы (1)
Задача № 2. Сумма нечетных чисел Вычислить сумму всех нечетных чисел из интервала [a, b]. Например, сумма нечетных чисел из интервала [3, 9] равна 3 + 5 + 7 + 9 = 24.
Ответы (1)
Дано натуральное число N найдите сумму всех простых делителей этого числа и проверьте, не является ли полученная сумма полиндродано натуральное число N найдите сумму всех простых делителей этого числа и проверьте, не является ли полученная сумма
Ответы (1)
Сумма нечетных 5 чисел на паскале Найти сумму 5 нечетных чисел натурально ряда n>0
Ответы (1)
Паскаль. Помогите решить с помощью циклов. 9 кл. Найти количество нечетных делителей натурального числа, больших К (К вводится с клавиатуры) Помогите написать хотя бы математическую модель.
Ответы (1)