В заданном тексте, найти номер первой по порядку группы цифр, начинающейся цифрой 2. - Pascal ABC
Формулировка задачи:
Дан текст, найти номер первой по порядку группы цифр (группой цифр будем называть такую совокупность последовательно расположенных цифр, которой непосредственно не предшествует и за которой непосредственно не следует цифра), начинающейся цифрой 2.
Решение задачи: «В заданном тексте, найти номер первой по порядку группы цифр, начинающейся цифрой 2.»
textual
Листинг программы
var s:string;i,k:byte;f:boolean;
begin
write('s = ');readln(s);
i:=1;k:=0;f:=false;
while (i<=length(s))and(not f) do begin
if s[i] in ['0'..'9'] then begin
if s[i]='2' then f:=true
else begin inc(k); while (s[i] in ['0'..'9'])and(i<length(s)) do inc(i)end
end;
inc(i);
end;
if f then writeln('номер первой по порядку группы цифр, начинающейся цифрой 2: ',k+1)
else writeln('нет группы цифр, начинающейся цифрой 2')
end.
Объяснение кода листинга программы
В данном коде происходит чтение строки из файла, после чего начинается цикл, который проверяет каждую цифру в строке. Если цифра равна 2, то переменная f устанавливается в значение true, иначе переменная k увеличивается на единицу. Цикл продолжается до тех пор, пока не будет найдена первая группа цифр, начинающаяся с цифры 2. Если такая группа найдена, то выводится номер этой группы, иначе выводится сообщение о том, что такой группы нет.