Объяснение:
Возможно так....
Во вложенном файле и на картинке
Строка "пришли за 30.06.2021" - в ней 30.06.2021 это не дата в статичном виде, а штатная функция "СЕГОДНЯ". Это значение будет обновляться при пересчете формул листа.
Для того что бы дата подтягивалась автоматически после ввода имени, и не менялась в дальнейшем:
В моем файле кликаете правой кнопкой мыши на ярлычке листа.
Выбираете "Исходный текст"
В открывшееся окно вставляете следующее
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Target.Offset(, 1).Value = Int(Now)
End If
End Sub
Сохраняете файл как книгу Excel с поддержкой макросов (.xlsm)
Теперь при вводе имени либо другого текста в столбец А (выше в тексте это Range("A:A") ) , в соседней ячейке справа будет вставлена дата изменения ячейки, то есть дата когда сделана запись имени.
Остальное все так же. Но при открытии файла Excel может предупреждать о макросах, нужно разрешить его работу.
72
Объяснение:
" Var s,k: integer; " --- сначала объявляются две переменные типа integer: s и k.
" Begin s:= 0; " --- затем переменной s присваивается значение 0.
" for k:= 4 to 9 do s:= s + 12; " --- эта строчка представляет из себя цикл. Сначала переменной k задаётся значение 4. Затем при каждом выполнении тела цикла к этому значению прибавляется единица. Это происходит до тех пор, пока значение переменной не достигнет 9. То есть тело цикла будет выполнено 9 - 4 = 5 раз.
Теперь взглянем на тело цикла: s:= s + 12. Эта строчка при каждом выполнении прибавляет к предыдущему значению переменной s 12. Так как она будет выполнена 5 раз, а начальное значение переменной s равно 0, то после выполения цикла значение переменной s будет равно 0 + 12 + 12 + 12 + 12 + 12 = 12 · 5 = 72.
" writeln(s); End. " --- выводит значение s и завершает исполнение программы.
