gauss.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 16 行

program suma_Gauss;
{suma primelor n nr naturale}
var s,n,i:integer;
begin
write('n= ');
readln(n);
s:=0;
i:=0;
{for i:=1 to n do
s:=s+i;}
repeat
       s:=s+i;
       i:=i+1;
until i=n+1;
writeln('s= ',s);
end.