Vu Hoai Bang
Tổng số bài gửi : 15 Join date : 13/12/2022
| Tiêu đề: bai 10:vu hoai bang Tue Dec 27, 2022 2:04 pm | |
| - Code:
-
var a:array[1..1000,1..1000] of longint; n,m,i,j,p:longint; function cp(n:longint):boolean; begin if sqrt(n)=trunc(sqrt(n)) then exit(true); exit(false); end; begin assign(input,'bai3onl.inp');reset(input); assign(output,'bai3onl.out');rewrite(output); read(n,m); 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 cp(a[i,j]) then begin p:=1; writeln(i,' ',j); end; if p=0 then write('-1'); close(input);close(output); end.
| |
|