Давай попробуем разобраться
а=8
а=-5+(а+2)=-5+(8+2)=-5+10=5
b=(-a-a)*a=(-5-5)*5=-10*5=-50
c=(b-a)*(2-a)=(-50-5)*(2-5)=-55*(-3)=165
Поэтому с=165 и это ПРАВИЛЬНЫЙ ответ при твоих исходных данных(написанных операторах языка Бейсик). То, что этого ответа нет в предложенных вариантах может обозначать, что
1. Ты ошиблась в условии при написании операторов.
2. Ты ошиблась при перечислении вариантов
3. Авторы задачи очень далеки от программирования, поэтому сами не знают ответа, а в качестве ответа написали набор случайных чисел.
Что на самом деле - не знаю, уточняй сама.
Var
sum, x : integer;
begin
sum := 0;
repeat
read (x);
if (x mod 6 = 0) and (x mod 10 = 2) then sum := sum + x;
until x = 0;
write (sum);
end.
Код и результат выполнения на скриншотах.
2гб- это 2000мб
2000+2048=4048мб
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>