Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program pr_13;
- const
- N = 9;
- type
- mas = array[1..N, 1..N] of integer;
- var
- x: mas;
- i, j: integer;
- s1, s2: real;
- f: boolean;
- begin
- for i := 1 to N do
- for j := 1 to N do
- read(x[i, j]);
- f := true;
- s1 := 0;
- for i := 1 to N do
- s1 := s1 + x[1, i];
- for i := 2 to N do begin
- s2 := 0;
- for j := 1 to N do
- s2 := s2 + x[i, j];
- if s1 <> s2 then
- f := false;
- end;
- for j := 1 to N do begin
- s2 := 0;
- for i := 1 to N do
- s2 := s2 + x[i, j];
- if s1 <> s2 then
- f := false;
- end;
- if f then
- writeln('Магический квадрат.')
- else
- writeln('Не магический квадрат.');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement