Вэтой пишет ошибку: нет перегруженной подпрограммы с такими типами параметров. var a: string; i,j: integer; begin readln (a); j: =length (a); for i: =j to 1 do if (copy(a,i,1)=1) or (copy (a,i,1)=5) then delete (a,i,1); writeln (a); end.

Pizetiv4ik    3   16.06.2019 17:54    1