2017-11-28から1日間の記事一覧
program report_7implicit noneinteger ::a,x,y,z,i,n=0logical primewrite(*,*) 'Enter the limit of hypotenuse'read(*,*) ado z=1,a do y=1,a-1 do x= 1, a-2 if (x**2+y**2==z**2) then if (x
program report_7implicit noneinteger ::a,x,y,z,i,n=0logical primewrite(*,*) 'Enter the limit of hypotenuse'read(*,*) ado z=1,a do y=1,a-1 do x= 1, a-2 if (x**2+y**2==z**2) then if (x