Дан символьный файл f. Записать в файле g, с сохранением порядка их следования, те символьные данные: a) которым в файле f предшествует буква а б) в след за которыми в файле f идёт буква а

Question

Информатика

Созонт

7 октября, 15:37

Дан символьный файл f. Записать в файле g, с сохранением порядка их следования, те символьные данные: a) которым в файле f предшествует буква а б) в след за которыми в файле f идёт буква а

+4

Ответы (1)

Знаете ответ?

Косьма · Answer 1

var f, g:string;

i:integer;

begin

readln (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.