Question

求fortran90程序设计语言高手，帮忙做几道题，谢谢！！ 1。一个数列，它的头三个数是0、0、1，第4个数是前

1。一个数列，它的头三个数是0、0、1，第4个数是前三个数之和，以后每个数都分别是其前三个数之和。请编程序输出该数列，知道第20个数为止。
2.求50以内的勾股数，即求满足A的平方加B的平方等于C的平方的A、B、C。要求A、B和C均小于或等于50，且没有重复解。例如，A=3，B=4，C=5及A=4，B=3，C=5即是重复解。
3.雨淋湿了一道算术题，九个数字现只能认清四个（第一个数字虽模糊不清，但肯定是1）。 [口x（口3+口）]*=8口口9 注（*=2）
请发到395150898@qq.com 万分感谢！

Answer 1

1.
a(1),a(2),a(3)提前赋值，然后
do i=1,17
a(i+3)=a(i)+a(i+1)+a(i+2)
enddo
2.
integer a(50,4)
a=0
l=1
do i=1,50
do j=1,50
v1=i**2+j**2
do k=1,50
if (v1==k**2) then
if ( all(a(:,4)/=i*j*k) ) then
a(l,1)=i
a(l,2)=j
a(l,3)=k
l=l+1
endif
endif
enddo
enddo
enddo
3.不懂