Задать вопрос
1 ноября, 18:45

найти сумму нечётных делителей натурального числа

Паскаль!

+1
Ответы (1)
  1. 1 ноября, 21:00
    0
    var a, b, n:real;

    begin

    writeln ('vvedite chislo') ;

    readln (a) ;

    b=1;

    n=b;

    while b
    begin

    if (a mod b = 0) then n:=n*b;

    b:=b+2;

    end;

    writeln ('n = ', n) ;

    readln;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «найти сумму нечётных делителей натурального числа Паскаль! ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
Проверить являются ли два введенных числа дружественными. Дружественные числа - пара чисел, каждое из которых равно сумме собственных делителей другого (Делителем числа называется всякий его делитель, отличный от самого числа) Дружественные числа
Ответы (1)
Помгите! Программа Паскаль Вопрос 1. Функция служебного слова Var. Вопрос 2. С какими числами можно работать в программе Паскаль? Вопрос 3. Оператор ввода. Как он записывается в Паскаль? Вопрос 4. Функция служебного слова Const. Вопрос 5.
Ответы (1)
Паскаль. 1) В банк положили вклад N рублей. Каждый месяц вклад увеличивается на 1%. Определить размер вклада через 5 лет. 2) Дано натурального число. Найти сумму его делителей, не кратных 3. 3) Дано натурального число. Найти его максимальную цифру.
Ответы (1)
Паскаль. Помогите решить с помощью циклов. 9 кл. Найти количество нечетных делителей натурального числа, больших К (К вводится с клавиатуры) Помогите написать хотя бы математическую модель.
Ответы (1)