Advertisement
Guest User

Untitled

a guest
Mar 22nd, 2017
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.72 KB | None | 0 0
  1. program pr_13;
  2.  
  3. const
  4.   N = 9;
  5.  
  6. type
  7.   mas = array[1..N, 1..N] of integer;
  8.  
  9. var
  10.   x: mas;
  11.   i, j: integer;
  12.   s1, s2: real;
  13.   f: boolean;
  14.  
  15. begin
  16.   for i := 1 to N do
  17.     for j := 1 to N do
  18.       read(x[i, j]);
  19.  
  20.   f := true;
  21.   s1 := 0;
  22.   for i := 1 to N do
  23.     s1 := s1 + x[1, i];
  24.   for i := 2 to N do begin
  25.     s2 := 0;
  26.     for j := 1 to N do
  27.       s2 := s2 + x[i, j];
  28.     if s1 <> s2 then
  29.       f := false;
  30.   end;
  31.  
  32.   for j := 1 to N do begin
  33.     s2 := 0;
  34.     for i := 1 to N do
  35.       s2 := s2 + x[i, j];
  36.     if s1 <> s2 then
  37.       f := false;
  38.   end;
  39.  
  40.   if f then
  41.     writeln('Магический квадрат.')
  42.   else
  43.     writeln('Не магический квадрат.');
  44.  
  45. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement