2009-02-25 19:13:28 LedForT Задание: Составить программу, в которой все пробелы в тексте будут заменяться на запятые. я в общем пытался, но там что-то не то: program pr1; var A:string; i:char; begin writeln('vvedite text:'); readln(A); i:=A[1]: for i:=1 to length(A); if i:=' ' then i:=','; writeln(A); end. |