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

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

Question

Ангеля

19 августа, 14:06

+4

Ответы (1)

Знаете ответ?

Евдения · Answer 1

Var a:real;

n:integer;

begin

readln (n) ;

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

writeln (a) ;

end.

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