Advertisement
KOTIK_HA_MAT-MEXE

Untitled

Nov 17th, 2016
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.22 KB | None | 0 0
  1. var i, a: longint;
  2.  
  3. begin
  4. i:=0;
  5. for a:=1001 to 999999 do begin
  6. 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);
  7.  
  8. end;
  9. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement