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. изменить программу так, чтобы она удаляла все точки изтекста после нахождения их количества

269

349

Посмотреть ответы 2

Ответы на вопрос:

kozlovadasa52

Информатика

4,8(37 оценок)

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.