База ответов ИНТУИТ

Введение в программирование больших вычислительных задач на современном Фортране с использованием компиляторов Intel

<<- Назад к вопросам

Сколько раз переменная k увеличится на 3?
k = 2  do     select case (k)	  case (0,4,8,12,20)	    k=k+1      case (2,6,10,14,18) 	    k=k+2	  case (1,3,5,7,9,11,13,15,17,19)	    k=k+3	  case (16)	    k=k-1	  case (21:) 	    exit	end select  end do

(Отметьте один правильный вариант ответа.)

Варианты ответа
11
6
4(Верный ответ)
5
Похожие вопросы
Сколько раз переменная k увеличится на 2?
k = 1  do     select case (k)      case (1,3,4,7)	    k=k+1	  case (2,5,6,8,12:20)	    k=k+2	  case (9)	    k=k-2      case (10)	    k=k+5       case (21)	     exit	end select  end do
Сколько раз переменная k увеличится на 1?
  k = 1  do     select case (k)	  case (1,2,6,8,9,12,14)	    k=k+1      case (3,4,7,11,13,15) 	    k=k+2	  case (5)	    k=k-1	  case (10)	    k=k+4	  case (16:) 	    exit	end select  end do
Сколько раз переменная k увеличится на 3?
k = 3  do     select case (k)	  case (3,7,9,12,18)	    k=k+1      case (5,8,10,13,15) 	    k=k+2	  case (11)	    k=k-4	  case (4,6,14,16,17)	    k=k+3	  case (19:) 	    exit	end select  end do
Сколько раз переменная k увеличится на 2?
k = 1  do     select case (k)	  case (5:16,18:19)	    k=k+2      case (1:4)	    k=k+1       case (20)	     exit	  case (17)	    k=k-7	end select  end do
Какое значение содержит переменная fruits в конце работы фрагмента программы?
enum, bind(C)  enumerator :: apple=1   enumerator pear  enumerator :: lemon=5  enumerator orange  enumerator kiwi  enumerator :: grapes=7end enuminteger :: fruits=-1fruits=orange*3-pear+lemon+kiwi+grapes
Сколько потребуется просуммировать членов ряда \sum\limits_{k=1} 100*e^{-k/10} cos^2k, чтобы очередное слагаемое стало меньше 0.0003?
Сколько потребуется просуммировать членов ряда \sum\limits_{k=1} k*sin^2k, чтобы очередное слагаемое стало больше 2000?
Сколько потребуется просуммировать членов ряда \sum\limits_{k=1} \sqrt {k/10} * cos^2k, чтобы очередное слагаемое стало больше 10?
Сколько потребуется просуммировать членов ряда \sum\limits_{k=1} k*\lvert cosk \rvert, чтобы очередное слагаемое стало больше 1000?
Сколько потребуется просуммировать членов ряда \sum\limits_{k=1} \frac {\lvert sink \rvert} k, чтобы очередное слагаемое стало меньше 0.00001?