Строки символов. Определить количество одинаковых символов

@User233 · Регистрация: 27.02.2012

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

3.Дана последовательность символов, в начале которой имеется некото*рое количество одинаковых символов. Определить это количество. Рас*смотреть два случая:
-известно, что не все символы последовательности одинаковые,
-все символы последовательности могут быть одинаковыми.

@TheSN · 04.06.2012, 13:56

3

Pascal

var
  n, i: integer;
  s: string;
 
begin
  readln(s);
  repeat
    inc(i);
    if s[i] = s[1] then inc(n);    
  until (s[i] <> s[1]) or (i = length(s));
  if n > 1 then writeln('Найдено ', n, ' одинаковых символов с начала строки') else
    writeln('Одинаковых символов нет!');
  readln
end.

@User233 1 / 1 / 0 Регистрация: 27.02.2012 Сообщений: 47
		1
	Строки символов. Определить количество одинаковых символов 04.06.2012, 13:36. Показов 9523. Ответов 1 Метки нет (Все метки) 3.Дана последовательность символов, в начале которой имеется некоторое количество одинаковых символов. Определить это количество. Рассмотреть два случая: -известно, что не все символы последовательности одинаковые, -все символы последовательности могут быть одинаковыми. 0

	04.06.2012, 13:56

Строки символов. Определить количество одинаковых символов

Решение