Advertisement
esvikey

08

Feb 18th, 2019
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.13 KB | None | 0 0
  1. var i,e,s: integer;
  2. begin
  3. for i:=100 to 999 do begin
  4. s:=i div 10;
  5. e:=i mod 10;
  6. if s*s-e*e=i then write(i, ' ');
  7. end;
  8. writeln;
  9. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement