написать нормальный алгоритм Маркова, чтоб каждый третий символ стирался... например: abaaba - abab
10-11 класс
|
var a:string;
n,i,q:integer;
begin a:='';
readln(a);
n:=length(a);
writeln(n);
q:=0; for i:=1 to n do begin
q:=q+1;
if q=3 then begin
delete(a,i,1);
q:=1;
end;
end;
writeln(a);
end.
Вот что-то похожее на Паскале:
спасибо)) но мне надо не в программе, а именно написать алгоритм Маркова((
Комментарий удален
Другие вопросы из категории
1)Сканируется цветное изображение стандартного размера А4(21*29,7 см).Разрешающая способность сканера 1200 dpi,глубина цвета 24 бита.Какой информационный объем будет иметь полученный графический файл?
2)Определить длительность звукового файла,который уместится на гибкой дискете 3,5"(для хранения данных на дискете выделяется 2847 секторов объемом 512 байтов каждый):
при низком качестве звука:моно,8 битов,8кГц;
при высоком качестве звука:стерео,16 битов,48 кГц.Просьба написать с объяснением!
ет иметь полученный графический файл?
налево.В какой то момент времени случилось так, что они попали в одну мишень. После этого они остановились и решили посчитать, во сколько мишеней каждый из них не стрелял. М и Р - количество мишеней, в какие попали Миша и Петр соответственно.
М+Р меньше или равняется 100
Нужно найти два числа - количество мишеней в какие не стреляли Миша и Петр.
Читайте также
если известно, что они покрашены в шахматном порядке и клетка (1, 1) - белая.
Формат входных данных
Первая строка входного файла содержит единственное целое N (1 <= N <= 10).
Формат выходных данных
Выведите N строк в каждой N символов соответствующий цвету этой ячейки: ‘W’ – если белая и ‘B’ – если черная.
числами. В чём ошибка? вот код:
Private Sub Command1_Click()
' Описание переменных
Dim N As Single
Dim M(15) As Single
Dim A As Single
Dim B As Single
Dim C As Single
Dim Z As Single
' Описание переменных
' Вод исходных данных
N = 0
M(I) = 0
A = 1
B = 0
C = 0
' Ввод исходных данных
' Реализация алгоритма
For I = 1 To 15
N = Int(Text1.Text)
M(I) = Val(InputBox("Ввести элементы"))
Print Str(M(I))
Next I
For I = 1 To 15
If M(I) > 0 And M(I) <> 0 Then
A = A * M(I)
End If
Next I
For I = 15 To 0 Step -1
If I Mod 2 = 0 Then
If M(I) > 0 Then
B = M(I)
I = 0
End If
End If
Next I
For I = 1 To N Step 1
S = S + M(I)
Next I
C = S / N
Z = С + (А + В/ А * В + 1)
' Реализация алгоритма
' Вывод результата
Text2.Text = Str(A)
Text3.Text = Str(B)
Text4.Text = Str(C)
Text5.Text = Str(Z)
' Вывод результата
End Sub