Question

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

Answer 1

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.

Answer 2

Тогда пускай поподробнее распишет, что хочет пользователь от программы.

Answer 3

А про "аnd" я говорил не в том смысле, что просто заменить ею "or", а в том, что его надо использовать в логике программы.

Answer 4

Если переформулировать задачу, то она выглядит так: определить сколько раз встречаются буквы а b c? Так?

Answer 5

Твоя программа считает количество букв, на надо количество не отдельных букв, а всей группы. Т.е. сколько раз встречается фрагмент "abc". Я так думаю, может, я и не прав.

Answer 6

Хотя да, может и ты прав.