Задать вопрос
13 мая, 21:44

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

Паскаль!

+2
Ответы (1)
  1. 13 мая, 22:27
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «найти сумму нечётных делителей натурального числа Паскаль! ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы