Question

Magiczny klocek 3*3 kod pascal . W każdym wierszu i w kolumnie suma liczb ma wynosić 15 . W kolumnie i wierszu drugim zawsze ma znajdować się liczba 5. Program ma wybierać losowe liczby z pezedziału od 1 do 9.

Answer 1

Raczej "magiczny kwadrat", a nie "klocek".

O ile dobrze zrozumiałem treść polecenia:

Var A, B, C: -10..10; 

Begin
  Randomize;

  A := 5;
  Repeat
   B := Random(9)+1;
   C := 9-(A+B);
  Until (C > 0);

  Writeln(a-b:2 , ' | ', a+b-c:2, ' | ', a+c:2);
  Writeln(a+b+c:2, ' | ', a:2, ' | ', a-b-c:2);
  Writeln(a-c:2 , ' | ', a-b+c:2, ' | ', a+b:2);
  Readln;
End.:

 

(natomiast afair w takiej sytuacji masz tylko 2 lub 3 możliwe kombinacje ;P)