Дана строка.определить сколько раз входит в нее группа букв a b c. ,не надо писать решай сама!

arsenenko arsenenko    1   04.06.2019 04:00    1

Ответы
konfetkamailrup0acjk konfetkamailrup0acjk  05.07.2020 08:48
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика