Задание:
Дан символьный файл f. Записать в файле g, с сохранением порядка их следования, те символьные данные: a) которым в файле f предшествует буква а б) вслед за которыми в файле f идет буква а
Решение:
var f,g: string; i: integer; beginreadln (f); for i: =1 to length (f) -1 do if (f[i+1]='а') then g: =g+f[i]; writeln (g); g: ='; for i: =2 to length (f) do if (f[i-1]='а') then g: =g+f[i]; writeln (g); end.
Знаете другой ответ?