Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  numune
Language: PASCAL
Code:
var i,n,cem:integer;
begin
readln(n);
i:=0;cem:=0;
repeat
i:i+1;
cem:=cem+i;
until i=n;
writeln(cem);
end.          
          
Comments: