Задать вопрос
6 марта, 12:53

Для заданного целого положительного числа N вычислите сумму его делителей. в паскале

+3
Ответы (1)
  1. 6 марта, 15:50
    0
    Var

    N, S, d:integer;

    Begin

    S:=0;

    Write ('N = ') ; ReadLn (N) ;

    For d: = 1 to N do

    if N mod d = 0 then S:=S+d;

    WriteLn ('S = ', S)

    End.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Для заданного целого положительного числа N вычислите сумму его делителей. в паскале ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы