Какие из циклов не подходят для параллелизации с использованием опции компилятора /Qparallel
do k=1,1000 V(k)=W(k-1)*S(k) R(k)=X(k)**2-S(k-1) end do
do i=1,100 C(i)=A(i+1)*A(i-1) A(i)=C(i)-B(i+1)*A(i)end do(Верный ответ)
while (cx > eps) do cx=cx+A(k)*B(k) A(k)=C(k)-D(k)end do(Верный ответ)
do k=Mk,Mx A(k,:)=B(:,k)+C(:,k+1) end do
do ch=gectharqq() if (ch='Q') exit A(k)=B(k-1)+C(k+2)end do(Верный ответ)