Регистрация
egorikguru
19.09.2021 21:20
Информатика
Есть ответ 👍

Текстовый файл 24-s1.txt состоит не более чем из 106 заглавных латинских букв (A..Z). Текст разбит на строки различной длины.
Необходимо найти строку, содержащую наименьшее ненулевое
количество пар соседних букв, которые стоят в таком же порядке и в
алфавите (например, AB, BC, CD и т.д.). Если таких строк несколько, надо
взять ту, которая в файле встретилась раньше. Определите, какая буква
встречается в этой строке чаще всего. Если таких букв несколько, надо
взять ту, которая стоит последней в алфавите. Запишите в ответе эту
букву, а затем – сколько раз она встречается во всем файле.

294
317
Посмотреть ответы 2

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

віка812
віка812
4,6(4 оценок)

program qq;

var n,L, i: integer;

s: string;

f: text;

begin

assign(f, '24-s1.txt');

reset(f); n:=0;

while not eof(f) do begin

s:='';

readln(f, s);

l:=0;

for i:=1 to length(s) do begin

if s[i]='A' then begin l:=l+1;

end;

if l>1 then n:=n+1;

end;

end;

writeln(n);

end.

Объяснение:

ViolettaBazarova
ViolettaBazarova
4,6(59 оценок)
Var n,k,m,i: integer; begin write('n = '); readln(n); write('k = '); readln(k); m: =n; for i: =1 to k do   m: =(m div 2)+(m mod 2); writeln('m = ',m); end. пример: n = 1000k = 5m = 32

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