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

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

Question

Наркисса

6 октября, 02:58

+1

Ответы (1)

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

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

Var a:real;

n:integer;

begin

readln (n) ;

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

writeln (a) ;

end.

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