Lệ
Tổng số bài gửi : 16 Join date : 06/12/2022
| Tiêu đề: bai11d7.pascal Sat Dec 17, 2022 9:23 pm | |
| //em dau lung lam roi// var i,j,m,n,p:longint; a:array [1..1000,1..1000] of longint; function snt(u:longint):boolean; var i:longint; begin if (u=2) or (u=3) then exit(true); if (u mod 2=0) or (u mod 3=0) then exit(false); i:=5; while i*i<=u do begin if (u mod i=0) or (u mod (i+2)=0) then exit(false); inc(i,6); end; exit(true); end; begin assign(input,'bai11d7.inp'); reset(input); assign(output,'bai11d7.out'); rewrite(output); read(m,n); 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 snt(a[i,j]) then begin write(i,#32,j); writeln; p:=1; end; if p=0 then write('-1'); close(input); close(output); end. - Code:
-
[code][/code] | |
|