Исполните следующий фрагмент линейного алгоритма для а=2 и b=3

program oshi;

var a,b,c: integer;

uses crt; {1 часть очистки экрана от ненужных символов}

begin

clrscr; {2 часть очистки экрана от ненужных символо}

a: =2;

writeln('a= ',a); {вывод на экран предложения}

b: =3;

writeln('b= ',b);

c: =a+b;

writeln('сумма а и b= ',c);

end.

4094

Объяснение:

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

Dim i As Integer

For i = 1 To n

str = Replace(str, "A", "BC")

str = Replace(str, "B", "AC")

str = Replace(str, "CC", "AD")

Next

newstr1 = 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(newstr1("AA";11);"D")

Excel VBA

P.S.

Для номера процедуры равного i, количество символов "D" вычисляется по формуле D(i)=2*2^i-2

Алгоритм:
выставляем некий индикатор = 0
идем по массиву
если находим элемент больше 7, выставляем индикатор = 1, прекращаем просмотр массива, выводим номер элемента.
Если дошли до последнего элемента и все меньше 7 (индикатор = 0), выводим соответствующее сообщение.

Прога:
program test1;
var
M1: array [1..60] of integer;
ind, i: integer;

begin
ind :=0;
i := 1;
repeat
if M1[i]>7  then
begin
writeln(i);
ind := 1;
i :=  60;
end;
inc(i);
if ((i>60) and (ind=0))
begin
writeln('массив не содержит элементов, больших 7');
ind := 1;
end;
until(ind=1);
end;