Дан символьный файл f. записать в файле g, с - вопрос №360476 от 7rus790 09.07.2020 23:52

Question

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

7rus790 · Answer

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