Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

В строке заменить все двоеточие(:)точкой с запятой (;)Подсчитать количество замен

Ответ оставил Гость

Var
a:string;
i,k:integer;
begin
   readln(a);
       for i:=1 to length(a) do
            if a[i]=:then
               begin
                  a[i]:=;;
                  k:=k+1;
                end;
writeln(k);
end.