Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Comparar valores de una columna de una matriz
program ChequearColumnas; const max = 9; var matriz : array[1..1,1..9] of integer; i, j, sum, resta : integer; respuesta : boolean; begin matriz[1,1]:=8; matriz[1,2]:=1; matriz[1,3]:=7; matriz[1,4]:=6; matriz[1,5]:=9; matriz[1,6]:=5; matriz[1,7]:=2; matriz[1,8]:=4; matriz[1,9]:=4; sum := 1; resta:=1; for i:=1 to max do begin for j:=1 to max-resta do begin write(matriz[1,i]); writeln(matriz[1,j+sum]); if (matriz[1,i] = matriz[1,j+sum]) then respuesta:=FALSE else respuesta:=TRUE; end; sum := sum+1; resta := resta+1; writeln() end; if respuesta = FALSE then writeln('NO es sudoku') else writeln('Es sudoku'); end.
run
|
edit
|
history
|
help
0
dz_lesson_17
Kim
08 ariketa
nomer3
342
Сумма пар чисел кратных и некратных 11 с дельтой неэффективная
Giu
ariketa 05
test06
zadacha8