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.
Изменить программу так, чтобы она удаляла все точки изтекста после нахождения их количества
begin
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i]='.' then k:=k+1;
writeln('количество точек в строке=',k);
end.
Изменить программу так, чтобы она удаляла все точки изтекста после нахождения их количества
Answers & Comments
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.