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. изменить программу так, чтобы она удаляла все точки изтекста после нахождения их количества
Var s:string; k, i, n:integer; begin readln(s); k:=0; n:=Length(s); i:=1; while (i<=n) do 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.
begin
readln(s);
k:=0;
n:=Length(s);
i:=1;
while (i<=n) do
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.