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

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.