Question

Вычислить сумму первых n чисел натурального ряда.входные данные: во входном потоке записано единственное целое число n (0 < n < = 100).выходные данные: в выходной ноток вывести единственное целое число.пример входного файла (input.txt): 56 пример выходного файла (output.txt): 1596

Answer 1

Вот так вот будет :)

Answer 2

Program gt;
var f,ff:text;i,s,n:integer;
begin
assign(f,'input.txt');reset(f);
assign(f,'input.txt');rewrite(ff);
readln(f,n);
close(f);
s:=((1+n)*n)div 2;
writeln(ff,s);
close(ff);
end.