3)0+7=7
4)7+7=14
5)14+7=21
6)21+7=28
7)28+7=35
8)35+7=42
// F#
[<EntryPoint>]
let main argv =
let getArray =
let rand = new System.Random();
[1..4] |> Seq.map (fun x -> rand.Next 10)
let A = getArray;
let B = getArray;
let C = A |> Seq.mapi (fun i a -> a * a - (B |> Seq.nth i))
printf "%s" (Seq.fold (fun sum x -> sprintf "%s %d" sum x) "" C)
System.Console.ReadKey true |> ignore
0
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
Господи грамотей не мима а мимо!
Так вот алгоритм последовательность действий заданный человеком, программой (не важно кем)
<span>Нажмите кнопку Кнопка Microsoft Office и выберите пункт Параметры Word. </span>
<span>Щелкните категорию Настройка. </span>
<span>В диалоговом окне Параметры Word в списке Выбрать команды из выберите Все команды. </span>
<span>В списке команд выбранной категории выберите Автоформат и нажмите кнопку Добавить.</span>
<span>Примечание. Можно также добавить команду Выполнить автоформат.</span>