Написание программы

@Танюше4ка · Регистрация: 20.01.2012

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста, пропустила тему(((
Дана строка символов ,определить число вхождения групп букв a,b,c (т.е сколько раз встречается эта последовательность)

@Ev[G]eN · 03.02.2012, 15:15

Pascal

var
 st: string;
 a, b, c: char;
 i, count: integer;
begin
 writeln('Введите строку: ');
 readln(st);
 writeln('Введите последовательность букв(Например: абв): ');
 read(a, b, c);
  for i:=1 to length(st) do
   if (st[i] = a) and (st[i+1] = b) and (st[i+2] = c) then inc(count);
 writeln('Последовательность букв( ', a, b, c, ' ) входит в строку: ', count, ' раз!');
end.

@Танюше4ка 0 / 0 / 0 Регистрация: 20.01.2012 Сообщений: 47
		1
	Написание программы 03.02.2012, 12:42. Показов 1107. Ответов 1 Метки нет (Все метки) Помогите пожалуйста, пропустила тему((( Дана строка символов ,определить число вхождения групп букв a,b,c (т.е сколько раз встречается эта последовательность) 0

	03.02.2012, 15:15

Написание программы

Решение