Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {Винарский}
- program z_14_31(input,output);
- const h=100;
- begin
- var n,m,k: integer;
- var dig: set of 1..h;
- for n:=1 to h do
- for m:=1 to h do
- if(sqr(n)+sqr(m) in dig) then
- begin
- k:=sqr(n)+sqr(m);
- write(k,' ');
- dig:=dig-[sqr(n)+sqr(m)];
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment