Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var i, a: longint;
- begin
- i:=0;
- for a:=1001 to 999999 do begin
- if (a div 100000 + (a div 10000) mod 10 + (a div 1000) mod 10)=((a mod 1000) div 100 + (a mod 100) div 10 + a mod 10) then writeln(a);
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement