fork(36) download 
  1. program kaprekar;
  2. Var i,k,n: integer;
  3. Function kaprekar (n:longint): boolean;
  4. Var ch: string;
  5. x,y,d,e,l: integer;
  6. Begin
  7. str (sqr(n),ch);
  8. l:= length (ch) div 2 ;
  9. val(copy(ch,1,l),x,e);
  10. val(copy(ch,l+1,length(ch)-l),y,d);
  11. If x+y = n Then kaprekar:=true
  12. Else kaprekar:=false;
  13. End;
  14. Begin
  15. For i:=1 To 1000 Do
  16. Begin
  17. If kaprekar(i) Then writeln (i);
  18. End;
  19. End.
Success #stdin #stdout 0s 288KB
comments (?)
stdin 
Standard input is empty
stdout 
1
9
45
55
99
297
703
999
https://ideone.com/w909LW
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!