Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  1
Language: PASCAL
Code:
Program sum;
Var n,s,i:integer ;
Begin 
Writeln('введите N');
Readln (n);
i:=0;
s:=0;
while s<n
do
begin
s:=s+i;
i:=i+1;
end;
write('s=',s);
end.
Comments: