Форум » Обработка символьных строк » 24 » Ответить
24
Кэйт: Текстовый файл состоит не более чем из 106 заглавных латинских букв. Определите символ, который чаще всего встречается в файле сразу после буквы X. В ответе запишите сначала этот символ, а потом сразу (без разделителя) сколько раз он встретился после буквы X. Например, в тексте XBCXXBXDDD после буквы X два раза стоит B, по одному разу – X и D. Для этого текста ответом будет B2. Подскажите, где ошибка в программе [pre2] var n: array [1..26] of integer; f:text; s: string; i,k,maxn,c: longint; begin assign (f,'C:\Users\Admin\Desktop\УКПАИ.txt'); reset(f); readln(f, s); maxn := 0; for i := 1 to 26 do n[ i] := 0; for i := 1 to length(s)-1 do begin if (s[ i] = 'X') then begin n[ ord( s[ i + 1]) -64] += 1; end; end; for i := 1 to 26 do if n[ i] > maxn then begin maxn := n[ i]; c := i; end; write(chr(c + 64),maxn); close(f); end.[/pre2]
Ответов - 0
полная версия страницы