Question

Составить программу вычисления значения k.
Дано: k:=0
Начало цикла для i от 1 до 3
K:=k+2
Конец цикла.
Ввод k

Answer 1

Dim k As IntegerDim i As Integerk = 0For i = 1 To 3k = k + 2Cells(i, 2) = kNext