Дан символьный файл f. записать в файле g, с сохранением - вопрос №360308 от Александра66656 25.05.2020 12:42

Question

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

Александра66656 · 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....