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

Ответы 1

  • var a,b,n:real;

    begin

    writeln('vvedite chislo');

    readln(a);

    b=1;

    n=b;

    while b<a do

    begin

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

    b:=b+2;

    end;

    writeln('n = ',n);

    readln;

    end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years