Program n_5
Var
s:string[40];
i:integer;
k:byte;
begin
writeln('Введите строку');
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]=':' then
begin
s[i]:=';';
k:=k+1;
end;
writeln('Исправленная строка ',s);
writeln('Количество замен',k);
end.
Кто то может её запустить в Pascal и сказать, сколько там всего замен.
