Tiêu đề: bai4:vu hoai bang Mon Dec 26, 2022 7:55 pm
Code:
var a:array[1..1000,1..1000] of longint; n,m,i,j,k,p:longint; begin assign(input,'bai4.inp');reset(input); assign(output,'bai4.out');rewrite(output); read(n,m); readln(k); for i:=1 to n do for j:=1 to m do read(a[i,j]); p:=0; for i:=1 to n do for j:=1 to m do if (a[i,j] mod k=0) then begin p:=1; writeln(i,' ',j); end; if p=0 then write('-1'); close(input);close(output); end.