Question

привет помогите пожалуйста Составить программу вычисления суммы числ то 1 до N.N вводит пользователь ?

Answer 1

uses crt;var i,n,s:integer;beginn:=0;writeln('vvedite chislo');readln(s);for i := 1 to s don:=n+i;writeln(n);readln;end.

Answer 2

uses crt;
var i,n,s:integer;
begin
n:=0;
writeln('vvedite chislo');
readln(s);
for i := 1 to s do
n:=n+i;
writeln(n);
readln;
end.