Вообще то варианты некоректны. Вы должны использовать скобки вместе с апострофами, именно апострафами, а не кавычками, т.е. все должно выглядить,например, так
Writeln('Всего было ', а,' символов');
Т.е. на экран выведиться следущее, если а получилось равно 98
Всего было 98 символов
Такое число для 3 разрядных чисел одно, это 512
Sub amstrong()
ctroka = 2
For i = 100 To 999
N1 = i \ 100
N2 = (i - 100 * N1) \ 10
N3 = i - 100 * N1 - 10 * N2
If (N1 + N2 + N3) ^ 3 = i Then
Cells(ctroka, 2) = i
ctroka = ctroka + 1
End If
Next i
<span>End Sub</span>
Bluetooth - радиоволны высокой частоты. Ик порт- аналогично только в оптическом диапазоне (инфракрасном) вместо передатчика ИК- светодиод, вместо приемника - фотодатчик