Составить функцию, которая определяет сумму всех чисел от 1 до N

С радостью помогу Вам, пример приведу на паскале.

Такие штуки / / / нужно убрать, это как бы комментарий.

program my;

var a, b, c, d: integer; / / / (Введем четыре переменные a, b, c, d это будут числа)

begin

writeln ('Введите число N и программа определит сумму чисел от 1 до N');

write ('N=');

read (a); / / / (Вводим число а например 10)

b:=a div 2; / / / (b=10:2=5, разбиваем на пары их у нас 5)

c:=b*a; / / / (Количество пар умножаем на число N то есть 10, 5*10=50)

d:=b+c; / / / (И наконец сложим число пар с числом из предыдущего действия 5+50=55)

writeln ('Сумма чисел от 1 до ', a,' равна ', d);

// / (Вывод результата дает 55 и это правильный ответ)

end.

Ниже программа без комментариев.

program my;

var a, b, c, d: integer;

begin

writeln ('Введите число N и программа определит сумму чисел от 1 до N');

write ('N=');

read (a);

b:=a div 2;

c:=b*a;

d:=b+c;

writeln ('Сумма чисел от 1 до ', a,' равна ', d);

end.