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

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

#include < stdio.h> # define in "input.txt"# define out "output.txt"unsigned long long sum(int n){unsigned long long otv=0; for (int i=1; i*i< =n; i++)if %i)){otv+=i; if(i*i! =n)otv+=n/i; }return otv; }int main(void){unsigned long long n,otv=0; freopen(in,"r",stdin); freopen(out,"w",stdout); scanf("%i64d",& n); otv=sum(n); printf("%i64d",otv); return 0; }

Код1:

#include <iostream>#include <cmath>constexpr double semi_perimeter (double a, double b, double c) {    return (a + b  + c) / 2;}double first_task(double a, double b, double c) {    auto p = semi_perimeter(a, b, c);    return sqrt(p*(p-a)*(p-b)*(p-c));}int main() {    double A, B, C, S;    std::cin >> A >> B >> C;    S = first_task(A, B, C);    std:: cout << S << std::endl;    return 0;}

Код2:

#include <iostream>#include <cmath>constexpr double peak(double a, double b) {    return (a > b) ? a : b;}double second_task(double a, double b, double c) {    return peak(peak(a, b), c);}int main() {    double A, B, C, R;    std::cin >> A >> B >> C;    R = second_task(A, B, C);    std:: cout << R << std::endl;    return 0;}

// pascalabc.net 3.0, сборка 1144 от 16.01.2016 begin   var a: =arrrandom(100,-10,10);   a.println;   writeln(a.where(x-> x> 0).count,' положительных, ',       a.where(x-> x< 0).count,' отрицательных') end. тестовое решение: 4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1 51 положительных, 42 отрицательных