Информатика, опубликовано 2018-08-22 19:30:45 by Гость
Дана строка.Определить сколько раз входит в нее группа букв a b c.Пожалуйста,не надо писать решай сама!
Ответ оставил Гость
Var a,b,c, s:string; i,c:integer;
begin
readln(s);
readln(a,b,c);
for i:=1 to length(s) do begin
if (s[i]=a) or (s[i]=b) or (s[i]=c) then
c:=c+1;
end;
writeln(Группа букв a b c встречается , c, раз);
readln;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на