Дан символьный файл f. записать в файле g, с сохранением - вопрос №359908 от Кристина1333 27.06.2020 15:43

Question

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

Кристина1333 · 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....