В строке заменить все двоеточие(:)точкой с запятой (;)Подсчитать количество замен
В строке заменить все двоеточие(:)точкой с запятой (;)Подсчитать количество замен
Гость
Ответ(ы) на вопрос:
Гостьvar
a:string;
i,k:integer;
begin
readln(a);
for i:=1 to length(a) do
if a[i]=':'then
begin
a[i]:=';';
k:=k+1;
end;
writeln(k);
end.
Гостьvar
s: string;
i, k: integer;
begin
k := 0;
readln(s);
for i := 1 to length(s) do
if (s[i] = ':')then
begin
s[i] := ';';
inc(k);
end;
writeln(s);
writeln(k);
end.
Не нашли ответ?
Похожие вопросы