С клавиатуры вводится натуральное число n.посчитать сумму натурального числа от 1 до n?
Var n : Integer;
Begin
Readln(n);
Writeln((n+1)*n div 2);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var n : Integer;
Begin
Readln(n);
Writeln((n+1)*n div 2);
end.