33*63=2079 на одной странице
2079*19=39 501 байт - для 19 страниц
Начинаем раскодировать с начала.
Первая цифра в шифровке 5 – это начало только кода 5 (Д).
Вторая цифра 1 – это могло бы быть просто 1 (А), но тогда следующий код начинался бы с нуля, что невозможно. Значит, дальше идет 10 (И).
Остаётся 1912. Так как 9 не стоит в начале ни одного кода, 9 – окончание кода какой-то буквы, буду промежутки между буквами показывать черточкой: 19-12. 19 и 12 можно разбивать или не разбивать на коды, это даёт 4 варианта:
– 19-12 (СК)
– 1-9-12 (АЗК)
– 19-1-2 (САБ)
– 1-9-1-2 (АЗАБ)
Итого, имеем 4 варианта дешифровки:
5-10-19-12 (ДИСК)
5-10-1-9-12 (ДИАЗК)
5-10-19-1-2 (ДИСАБ)
5-10-1-9-1-2 (ДИАЗАБ)
Ответ ......................................35629
Код PascalABC.NET 3.2:
Var S:string;
i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
if S[i] = 'д' then
if S[i+1] = 'о' then
if S[i+2] = 'м' then
k:=k+1;
WriteLn(k)
End.
Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 < d1 then d1:=d3;
if d2 < d1 then d1:=d2;
WriteLn(d1)
End.
ПРочитать книжку либо правила в учебнике.
Запомнить что читал
И научиться применять
ВОТ И ВСЁ