SHARE
TWEET

Untitled

a guest Nov 26th, 2015 190 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. read(num);
  2. int i:=0, index:=1;
  3.  
  4. while i<num do
  5. begin
  6.     i:=index+i;
  7.     index:=index+1;
  8. end;
  9.  
  10. if(i=num) then
  11. write('O numero ', num, ' é perfeito.');
  12. else
  13. write(nao);
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top