• Вычислить сумму натуральных чисел от 1 до N .
    Составить программу нахождения кол-ва делителей числа N ( значение N вводится с клавиатуры )

Ответы 1

  • Держи!1)var i,n,result:integer;beginread(n);result:=0;for i:=1 to n dobegin   result:=result+i;end;write(result);end.2)var i,n,increase,result:integer;massive = array[1..1000] of integer;// ищем делители в диапазоне 1-1000beginread(n);for i:=1 to 1000 dobegin   if((n mod massive[i])=0) then   begin       increase:=increase + 1;   end;end;result:=increase;write(result);end.
    • Автор:

      alanna
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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