В строке удалить символ «:» и подсчитать количество удаленных символов — Pascal(Паскаль)

var
  s:string;
  i,c:integer;
begin
  readln(s);
  c:=0;
  while pos(':',s)<>0 do
  begin
    delete(s,pos(':',s),1);
    inc(c)
  end;
  writeln('Result: ',c)
end.

Leave a Comment

− 1 = 1