Программа находится во вложении, надеюсь поможет.
Sub z()
Dim a(8) As String
For i = 1 To 8
a(i) = InputBox("Введи слово")
Next i
For i = 1 To 8
Cells(i + 1, 1) = a(i)
n = Len(a(i))
Cells(i + 1, 2) = n
Cells(i + 1, 3) = Mid(a(i), 1, 1)
Cells(i + 1, 4) = Mid(a(i), n, 1)
Next i
<span>End Sub
Первую строку не использовал, оставил для заголовков</span>
2 и 5 возможно, хотя не уверен, странное немного задание<span />
Sub Main()
Dim a(9) As Double
a(0) = (Math.PI + 0.03 * 10 ^ -3) / Math.Log(Math.Sqrt(15 * Math.E) - 0.2 * 10 ^ -4) + 10 ^ (4.2 - 0.67)
a(1) = 3.95 + (1 / 20) ^ 2 + 1 / 900
a(2) = (2.75 * 10 ^ 2) / Math.Sqrt(14.3 + Math.PI)
a(3) = 2 ^ (Math.Log(0.34 - 10 ^ 3) - (0.16 - 5.27) / 0.029)
a(4) = (Math.Sqrt(0.079 / 3.5 - 6.1 * 10 ^ -5) + 0.4) * (Math.E ^ (0.7 / 9 + 0.8) - 1.5)
a(5) = (Math.Sqrt(7.65) + 4.1 * 10 ^ -3) ^ 2 / Math.Log(3.17 ^ 2 + 3.752) - Math.Sqrt(1 / 0.46 - 0.9)
a(6) = Math.E ^ (Math.PI / 4) * Math.Log(3 * (17.8 ^ 2 - 0.139 * 10 ^ 2)) + 2.3 * 0.69 / 1.5
a(7) = 6.7 * (1 / (Math.PI + 5.04) + 10 ^ (0.198 * Math.Sqrt(3.2))) - 0.36 * 10 ^ -3
a(8) = (10 ^ (1 / 3) - Math.Log(4.25 + 1 / 7) + 0.89 * 10 ^ -4 * 1.2) / (Math.E + 6)
a(9) = 0.09 * (Math.Log(0.41 * 10 ^ -3 + Math.Sqrt(0.26 * 10 ^ -5)) + Math.Sqrt(5.68 - Math.Sqrt(3)) - Math.E ^ (3 * 7))
Console.WriteLine(a(0))
Console.WriteLine(a(1))
Console.WriteLine(a(2))
Console.WriteLine(a(3))
Console.WriteLine(a(4))
Console.WriteLine(a(5))
Console.WriteLine(a(6))
Console.WriteLine(a(7))
Console.WriteLine(a(8))
Console.WriteLine(a(9))
Console.Read()
<span> End Sub
Знаю, можно было вывод сделать циклом, но у меня не получилось ._.</span>
Смотря что Вы называете циклом. По установившейся терминологии любой цикл состоит из заголовка цикла (по строению которого циклы часто и именуют) и тела цикла. В языке паскаль в заголовке цикла с предусловием стоит ключевое слово while и ключевое слово цикла с параметром for стоять уже не может. Но в теле цикла, которое может иметь любое содержимое, цикл for, конечно же, может встречаться.
А вот язык Алгол, на базе которого Н.Вирт сконструировал свой Паскаль, мог в заголовке цикла содержать очень много всего и, в том числе, смесь while с for:
for x:=p0 step h1 until q-1, q+1 step h2 until t, t+0.17 step h3 while cos(x/2)<0.85 do ...
Но Н.Вирт решил, что такой цикл неэффективен и... оставил от него жалкие ошметки. Возможно, компилятору "стало проще жить", но зато программисты в Паскале лишились возможности не только писать в цикле вещественные значения, но и вынуждены менять целочисленные только на 1 или -1.