Определи значение переменной a после выполнения фрагмента алгоритма при a=1 и a=18. Ввод а если a>5 то a:=a+20 иначе a:=a*10 всё ответ:

Получилось: при а=1 - 10

                       при a= 18 - 38

Вот код на всякий:

1) Program znanija;

var a: integer;

begin

 a:= 1;

 if a>5 then  

 a:=a+20 else

 a:=a*10;

write('a = ',a);

end.

2) Program znanija;

var a: integer;

begin

 a:= 18;

 if a>5 then  

 a:=a+20 else

 a:=a*10;

write('a = ',a);

end.

И скриншоты:

Редактирование текста — (text editing (editing)): использование текстового процессора (редактора) для обработки текстов, включая перекомпоновку, изменение, дополнение, удаление и переформатирование текста.

Бу́фер обме́на (англ. clipboard) — промежуточное хранилище данных, предоставляемое программным обеспечением и предназначенное для переноса или копирования между приложениями или частями одного приложения через операции вырезать, скопировать, вставить.

Обработка информации - получение одних информационных объектов из других информационных объектов путем выполнения некоторых алгоритмов.

2,0,334

Объяснение:

Описываем две пользовательские функции в Excel VBA:

Function newstr(str As String, n As Integer) As String

Dim i As Integer

For i = 1 To n

str = Replace(str, "a", "ab")

str = Replace(str, "bb", "c")

Next

newstr = str

End Function

 

Function chrcount(str1 As String, str2 As String) As Integer

Dim str() As String

str = Split(str1, str2)

chrcount = UBound(str, 1)

End Function

С рабочего листа вызываем функцию:

= chrcount(newstr("abab"; 333); "a")&","&chrcount(newstr("abab"; 333); "b")&","&chrcount(newstr("abab"; 333); "c")

Получаем результат:

2,0,334