Написать программу нахождения суммы чисел от 1 до n. Где n - число, вводимое клавиатурой

Написать программу нахождения суммы чисел от 1 до n. Где n - число, вводимое клавиатурой
Гость
Ответ(ы) на вопрос:
Гость
var a:real;         n:integer; begin readln(n); a:=(1+n)*n/2; writeln(a); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы