Advertisement
Guest User

Untitled

a guest
Feb 22nd, 2019
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.20 KB | None | 0 0
  1. program lab26;
  2.  
  3. var
  4.   i, j, n: integer;
  5.  
  6. begin
  7.   read(n);
  8.  
  9.   for i := 1 to n do
  10.     for j := 1 to n do
  11.       if i * i + j * j = n then
  12.         writeln(i, ' ', j);
  13.  
  14.   readln;
  15.   readln;
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement