vinarsky_evgeny

Untitled

Nov 22nd, 2015
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.30 KB | None | 0 0
  1. {Винарский}
  2. program z_14_31(input,output);
  3. const h=100;
  4. begin
  5. var n,m,k: integer;
  6. var dig: set of 1..h;
  7. for n:=1 to h do
  8.   for m:=1 to h do
  9.     if(sqr(n)+sqr(m) in dig) then
  10.       begin
  11.       k:=sqr(n)+sqr(m);
  12.       write(k,' ');
  13.       dig:=dig-[sqr(n)+sqr(m)];
  14.       end;
  15. end.
Advertisement
Add Comment
Please, Sign In to add comment