В одной из кодировок каждый символ кодируется 2 байта. Андрей написал текст (в нём нет лишних пробелов):
Затем он вычеркнул из списка название одного из животных. Заодно он вычеркнул ставшие лишними запятые и пробелы – два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 20 байт меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название животного.
Введите ответ:
230
484
Ответы на вопрос:
//не смотрел ваш код, просто моё видение решения //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
Популярно: Информатика
-
lizspb812109.09.2022 07:32
-
alyagipsy13.01.2022 16:46
-
Джахаршин820.04.2020 05:31
-
LeaV05.11.2020 13:44
-
анечка10317.08.2020 13:37
-
stig22806.04.2021 14:41
-
almas0530.01.2023 08:22
-
крузейро17.01.2021 22:15
-
морж1430.04.2020 04:04
-
vlad0ss24.12.2021 15:06