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 midterm implicit none real:: Ax=0.0, Ay=0.0, Mxl=0.0, Mxr=0.0, Myl=0.0, Myr=0.0, SumA=0.0, SumMx=0.0, SumMy=0.0,xc=0.0,yc=0.0 integer:: i=0, N print*, "Inout N here" read(*,*) N do i= 1,N-1 Ax = Ax + 1 - real(i)/real(N) Ay = Ay + s…

!This program was change on November 18. program report7 implicit none real:: b integer:: a,c,i,j,k,N,t=0 logical judge print*, "Enter the limit of hypotenuse" read(*,*) N print*, "The following numbers are all primitive Pythagorean triple…

program repoimplicit nonereal(8)::up,xold=0.0,xnew !Up is border. Other two are terms of series.character(16)::e !This e will be used to say conclusion correctly.integer::i=0 !counter print*,"Assign the numerical tolerance (e.g. 1D-6)"read…

program isbnimplicit nonelogical judgecharacter(len=10)::ainteger::i,b,h,s=0,t,j,y,q,lprint*, 'Type in a 10-digit ISBN marked with "?" for the missing digit.'read*, ajudge = .false. !This judge will be used to check whether including "?" o…

転学資格照会の結果が返ってきました。 京大には転学部・転学科制度があります。このシステムは総合大学ならではのものでして、理転文転が制度上は可能です。この画像は毎年の転学部・転学科の様子をデータ化したものです。見方は 転学許可者（人）/転学希望…