Var s:string; k, i:integer; begin readln(s); k:=0; for i:=1 to length(s) do if s[i]='.'...

Question

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

Answer 1

Var s:string; k, i, n:integer;
begin
readln(s);
k:=0; 
n:=Length(s);
i:=1;
while (i<=n) do<br>begin
   if s[i]='.' then
   begin
      k:=k+1;
      Delete(s,i,1);
      i:=i-1;
      n:=n-1;
   end;
   i:=i+1;
end;
  writeln('количество точек в строке=',k);
  writeln('новая строка:   ',s);
end.

Comments

спасибо большое