Question

Требуется посчитать сумму целых чисел от 1 до N.
Входные данные

В единственной строке входного файла INPUT.TXT записано единственное целое число N, не превышающее по абсолютной величине 104.
Выходные данные

В единственную строку выходного файла OUTPUT.TXT нужно вывести одно целое число — сумму чисел от 1 до N.

Answer 1

Var f:text; i,n,sum:integer;s,t:string;
beginassign(f,'f:\input.txt');Reset(f);read(f,s);close(f);n:= strtoint(s);for i:=1 to n dosum:= sum + i;write(s:5, sum:6);assign(f,'f:\output.txt');ReWrite(f);write(f,sum);close(f);end.