Объяснение: Первая буква может быть только А, затем возможен вариант: Т и Ж, но следующий символ начинается с двух точек, такой буквы нет и дальнейшая расшифровка невозможна, поэтому после А возможна только буква Д, далее возможна буква А, но тогда после нее снова имеем две точки, поэтому после Д идет Л, далее только Т, за ней возможна еще одна Т, но тогда следом идет опять буква начинающаяся с двух точек, которой нет, поэтому только Д, далее еще раз повторятся такой вариант с буквой Д, затем идет тире - это только Т, и наконец только А и только Т.
Да условие не до конца дописано, но с таким началом условия существует только одна задача:
определите значение переменной s после выполнения следующего фрагмента программы: s:= 0; for i:=1 to 9 do if A[i - 1] < A[i] then begin s := s + 1; t := A[i]; A[i] := A[i - 1]; A[i - 1] := t end;
Незачем считать, хотя и можно, проще просто запустить этот код:
var a: array [0..9] of integer = (1, 2, 4, 3, 5, 6, 8, 7, 3, 4); i, t, s: integer; begin s := 0; for i:=1 to 9 do if A[i - 1] < A[i] then begin s := s + 1; t := A[i]; A[i] := A[i - 1]; A[i - 1] := t end; write(s); end.
Как мы видим, после выполнения данного в условии фрагмента переменная s будет равна 9.
АДЛТДДТАТ
Объяснение: Первая буква может быть только А, затем возможен вариант: Т и Ж, но следующий символ начинается с двух точек, такой буквы нет и дальнейшая расшифровка невозможна, поэтому после А возможна только буква Д, далее возможна буква А, но тогда после нее снова имеем две точки, поэтому после Д идет Л, далее только Т, за ней возможна еще одна Т, но тогда следом идет опять буква начинающаяся с двух точек, которой нет, поэтому только Д, далее еще раз повторятся такой вариант с буквой Д, затем идет тире - это только Т, и наконец только А и только Т.
Комментарий:
Да условие не до конца дописано, но с таким началом условия существует только одна задача:
определите значение переменной s после выполнения следующего фрагмента программы: s:= 0; for i:=1 to 9 do if A[i - 1] < A[i] then begin s := s + 1; t := A[i]; A[i] := A[i - 1]; A[i - 1] := t end;
Незачем считать, хотя и можно, проще просто запустить этот код:
var a: array [0..9] of integer = (1, 2, 4, 3, 5, 6, 8, 7, 3, 4); i, t, s: integer; begin s := 0; for i:=1 to 9 do if A[i - 1] < A[i] then begin s := s + 1; t := A[i]; A[i] := A[i - 1]; A[i - 1] := t end; write(s); end.Как мы видим, после выполнения данного в условии фрагмента переменная s будет равна 9.