Вычислить сумму первых N чисел натурального ряда.Входные данные:Во входном потоке записано единственное целое число N (0 меньше N меньше = 100).Выходные данные:В выходной ноток вывести единственное целое число.Пример входног...
Вычислить сумму первых N чисел натурального ряда.Входные данные:Во входном потоке записано единственное целое число N (0 < N <= 100).Выходные данные:В выходной ноток вывести единственное целое число.Пример входного файла (input.txt):56 Пример выходного файла (output.txt):1596
Гость
Ответ(ы) на вопрос:
ГостьВот так вот будет :)
Гость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.
Не нашли ответ?
Похожие вопросы