Sub aaa()
s = InputBox("Введите текст")
s = Replace(s, "к", "", , , vbTextCompare)
MsgBox s
End Sub
<u>Если нужна отдельная процедура для замены:</u>
Sub ReplKk(s As String)
s = Replace(s, "к", "", , , vbTextCompare)
End Sub
Sub Test()
Dim s As String
s = InputBox("Введите текст")
ReplKk s
MsgBox s
End Sub
650 ПЕРЕВЕСТИ В КБ И ДЕЛИТЬ НА 3072
650x1024=665600
665600/3072=216,6сек
216,6/60=3,61мин
<span>Номер 13.
22x+14y=8456 :2
11х+7у=4228
</span><span>7у=4228-11х
</span><span> х=7k. y=604-k
</span><span>k и у - натуральные, то k<604, и может принимать 603 значения (от 1 до 603). Ответ: уравнение имеет 603 пары натуральных корней.
</span>Номер 14.
вывести формулу легко, любое целое n>2 встретится нам на месте с индексом I = (n-2)*3, если считать индес с 1 а не с нуля
<span>для n=90 индекс будет 264</span>