Предмет: Информатика, автор: iliagrihin

Определите, чему будет равна сумма всех целых чисел от единицы до заданного числа N.

Входные данные
Первая строка содержит целое число N (1 <= N <= 100).

Выходные данные
Выведите одно целое число — сумму чисел от 1 до N.

Приложения:

Ответы

Автор ответа: therealcf2014
1
var n, s, i: integer;
begin
write('Введите n ');
readln(n);
for i:=1 to n do
s:=s+i;
writeln(s);
end.
Похожие вопросы
Предмет: Английский язык, автор: вероника1034
Предмет: Психология, автор: 6tm