Решение. Составим трассировочную таблицу выполнения программы:

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

I
N
E							7 mod 3= 1
A$	“dfeadefa”
B$			“”						“feadefa”
C$						“feadefa”
I<= N-1					1<=7 да
E=1								да

I
N
E			6 mod 3 = 0					5 mod 3 = 2
A$
B$
C$		“eadefa”					“adefa”
I<= N-1	2<=7 да					3<=7 да
E=1				нет					нет

I
N
E				4 mod 3= 1
A$
B$						“feadefa” + “defa”= “feadefadefa”
C$			“defa”						“efa”
I<= N-1		4<=7 да						5<=7 да
E=1					да

I
N
E	3 mod 3 = 0					2 mod 3 = 2
A$
B$
C$					“fa”					“a”
I<= N-1				6<=7 да					7<=7 да
E=1		нет					нет

I
N
E	1 mod 3 = 1					LEN(“feadefadefaа”) = 12
A$
B$			“feadefadefa” + “a” = “feadefadefaа”
C$
I<= N-1					8<=7 нет
E=1		да

Ответ Е = 12

2. Чему равно значение переменной Е, вычисляемое в следующей программе на языке Basic:

DEFINT I, N, E

A$ = ”DFEADEFA”: N = LEN(A$) ‘определяется длина строки A$

B$ = ””

FOR I = 1 TO N - 1

C$ = MID$(A$, I + 1) ‘выделяется подстрока C$

IF INT (LEN(C$/2)>1 THEN

B$ = B$ + C$

END IF

NEXT I

E = LEN(B$)

PRINT E

3. Чему равно значение переменной Е, вычисляемое в следующей программе на языке Pascal:

Var I, N, E: Integer;

A,B,C: String;

Begin

A:= ’abcdefab’;

N:= Length(A); B:=’’;

For I:=1 To N-1 Do Begin

C:= Copy(A, I+1, N-1);

If Trunc (Length(C) /3 >1) Then

B:= B + C;

End;

E:= Length (B);

WriteLn (E)

End.