Есть ответ 👍

В одной из кодировок каждый символ кодируется 2 байта. Андрей написал текст (в нём нет лишних пробелов):

Затем он вычеркнул из списка название одного из животных. Заодно он вычеркнул ставшие лишними запятые и пробелы – два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 20 байт меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название животного.

Введите ответ:

230
484
Посмотреть ответы 1

Ответы на вопрос:

GanyaOle
4,6(18 оценок)

//не смотрел ваш код, просто моё видение решения //pascalabc.net 3.2 сборка 1318 var   t: text;   x,y,i,j: integer;   s: string;   c: char;   world: array[1..4] of char=('e','s','w','n'); begin j: =1; c: ='e'; assign(t,'input.txt'); reset(t); read(t,s); close(t); i: =1; while s[i]< > 's' do   begin   if s[i]='r' then     begin       if c='n' then j: =1 else inc(j);       c: =world[j];     end;   if s[i]='l' then     begin       if c='e' then j: =4 else dec(j);       c: =world[j];     end;   if s[i]='f' then     case c of       'e': inc(x);       's': dec(y);       'w': dec(x);       'n': inc(y);     end;   inc(i);   end; assign(t,'output.txt'); rewrite(t); write(t,x,' ',y); close(t); end. пример содержимого input.txt: flfs пример содержимого output.txt: 1 1

Популярно: Информатика