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

Где n - число, вводимое клавиатурой

Question

Наркисса

6 декабря, 17:14

+5

Ответы (1)

Знаете ответ на вопрос?

Леонтинка · Answer 1

Var a:real;

n:integer;

begin

readln (n) ;

a: = (1+n) * n/2;

writeln (a) ;

end.

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