Question

заменитт все точки запятыми Paschal ABC с любым текстом​

Answer 1

var s: string;

i: integer;

begin

write('введите текст: ');

readln(s);

for i:=1 to length(s) do if s[i]='.' then s[i]:=',';

writeln('полученный текст:');

write(s);

end.