17
Объяснение:
1)2000 возможных значений => чтобы закодировать каждое значение нужно 11 би тк 2^i = 2000 = > i = 11 бит(примерно)
2)значений считываются по сериям из 50 =>на одну серию потребуется 50 * 11 = 550 бит = 550/8 = 69 байт
3)12312 = 12300+12 =246*50+12 те получается 246 серий и еще 12 значений
4)246 серия можно закодировать 69*246 = 16974
5)12 значений кодируются отдельно минимальным количеством байтов те 12 *11 = 132 бита = 132/8 = 17 байт
6)чтобы закодировать все значения нужно 17+16974 = 16991 байт
7)16991 байт = 16991 /1024 кб = 17 кб
Var
s,s1:string;
begin
readln(s);
if (s[1]='в') and (s[2]=' ') then
begin
delete(s,1,1);
s:='на'+s;
end;
if (s[1]='В') and (s[2]=' ') then
begin
delete(s,1,1);
s:='На'+s;
end;
while pos(' в ',s)<>0 do
begin
if (s[1]='в') and (s[2]=' ') then
begin
delete(s,1,1);
s:='на'+s;
end;if (s[1]='В') and (s[2]=' ') then
begin
delete(s,1,1);
s:='На'+s;
end;
s1:=s1+copy(s,1,pos(' в ',s)-1)+' на ';
delete(s,1,pos(' в ',s)+2);
end;
if (s[1]='в') and (s[2]=' ') then
begin
delete(s,1,1);
s:='на'+s;
end;
if (s[1]='В') and (s[2]=' ') then
begin
delete(s,1,1);
s:='На'+s;
end;
s:=s1+s;
writeln(s);
end.
Пример ввода 1:
запасти в зиму, приехать в год, приготовить в день, выпить лекарство в ночь
Пример вывода 1:
запасти на зиму, приехать на год, приготовить на день, выпить лекарство на ночь
Пример ввода 2(глубокие песни современной отечественной эстрады):
В в в в в в в в в в в в в в в в в в н.
Пример вывода 2:
На на на на на на на на на на на на на на на на на на н.