Submission #1689599

Source Code Expand

implicit none
integer(8) :: i,j,k,n
read(5,*) n
do i = 1,int(3*n/4)
  do j = int(3*n/4), 3500
       if (4*i*j-N*i-N*j<=0) then
            continue
       else if (mod(N*i*j,4*i*j-N*i-N*j)==0) then
            goto 100
             endif
enddo
enddo
100 write(6,*) i,j,(N*i*j)/(4*i*j-N*i-N*j)
end

Submission Info

Submission Time
Task C - 4/N
User Yuki_Utaai
Language Fortran (gfortran v4.8.4)
Score 300
Code Size 312 Byte
Status AC
Exec Time 2 ms
Memory 256 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 300 / 300
Status
AC × 3
AC × 50
Set Name Test Cases
Sample 0002, 3485, 4664
All 0002, 0003, 0004, 0005, 0006, 0007, 0049, 0073, 0097, 0121, 0137, 0139, 0156, 0163, 0169, 0181, 0191, 0223, 0229, 0263, 0271, 0289, 0361, 0481, 0529, 0551, 0649, 0720, 0916, 1081, 1156, 1498, 1921, 2041, 2329, 2449, 2568, 2918, 2929, 3289, 3429, 3485, 3763, 4081, 4277, 4648, 4652, 4656, 4660, 4664
Case Name Status Exec Time Memory
0002 AC 1 ms 256 KB
0003 AC 1 ms 256 KB
0004 AC 1 ms 256 KB
0005 AC 1 ms 256 KB
0006 AC 1 ms 256 KB
0007 AC 1 ms 256 KB
0049 AC 1 ms 256 KB
0073 AC 1 ms 256 KB
0097 AC 1 ms 256 KB
0121 AC 1 ms 256 KB
0137 AC 1 ms 256 KB
0139 AC 1 ms 256 KB
0156 AC 1 ms 256 KB
0163 AC 1 ms 256 KB
0169 AC 1 ms 256 KB
0181 AC 1 ms 256 KB
0191 AC 1 ms 256 KB
0223 AC 1 ms 256 KB
0229 AC 1 ms 256 KB
0263 AC 1 ms 256 KB
0271 AC 1 ms 256 KB
0289 AC 1 ms 256 KB
0361 AC 1 ms 256 KB
0481 AC 1 ms 256 KB
0529 AC 1 ms 256 KB
0551 AC 1 ms 256 KB
0649 AC 1 ms 256 KB
0720 AC 1 ms 256 KB
0916 AC 1 ms 256 KB
1081 AC 2 ms 256 KB
1156 AC 2 ms 256 KB
1498 AC 2 ms 256 KB
1921 AC 2 ms 256 KB
2041 AC 2 ms 256 KB
2329 AC 2 ms 256 KB
2449 AC 2 ms 256 KB
2568 AC 2 ms 256 KB
2918 AC 2 ms 256 KB
2929 AC 2 ms 256 KB
3289 AC 2 ms 256 KB
3429 AC 2 ms 256 KB
3485 AC 2 ms 256 KB
3763 AC 2 ms 256 KB
4081 AC 2 ms 256 KB
4277 AC 1 ms 256 KB
4648 AC 1 ms 256 KB
4652 AC 1 ms 256 KB
4656 AC 1 ms 256 KB
4660 AC 1 ms 256 KB
4664 AC 1 ms 256 KB