Advertisement
Guest User

Untitled

a guest
Nov 27th, 2014
130
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.13 KB | None | 0 0
  1. var
  2. n,a,s:longint;
  3. begin
  4. readln(n);
  5. s:=1;
  6. a:=0;
  7. repeat
  8. s:=s+a;
  9. a:=a+1;
  10. until s>=n;
  11. writeln(a);
  12. readln;
  13. End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement