Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Определите, чему будет равна сумма всех целых чисел от единицы до заданного числа N.
Входные данные
Первая строка содержит целое число N (1 <= N <= 100).
Выходные данные
Выведите одно целое число — сумму чисел от 1 до N.

Ответ оставил Гость

Var n, s, i: integer;
begin
write(Введите n );
readln(n);
for i:=1 to n do
s:=s+i;
writeln(s);
end.