В строке заменить все двоеточия (:) точкой с запятой (;). Посчитать количество замен. (программа на Паскаль)
Вопрос посетителя
В строке заменить все двоеточия (:) точкой с запятой (;). Посчитать количество замен.
Ответ эксперта
Program Praktik10;
Uses crt;
Var s:string; i,k,n:integer;
Begin
Write(‘Введите строку’);
write;
Read(S);
n:=Length(S);k:=0;
Writeln(‘Новая строка’);
for i:=1 to n do
begin
if s[i]=’:’ then
begin
s[i]:=’;’; k:=k+1
end;
write(s[i]);
end;
Writeln;
Write(‘Количество замен’, k);
Readkey
End.