Информатика, опубликовано 2018-08-22 18:31:45 by Гость
Дана символьная строка всюду букву А поменять на букву В
Ответ оставил Гость
var a:string;
i:integer;
begin
readln(a);
a:=a+ ;
while length(a)>0 do begin
if a[1]=a then inc(i);
delete(a,1,pos( ,a));
end;
writeln(i);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на