1

Тема: Однакові символи

Мені треба з слова що вводить користувач знайти скільки однакових символів міститься в цьому слові..
Я думаю що перше треба  порівняти чи є однакові символи в слові

program land_of_wonderful;

var
  s, c: string[50];
  z,i, j: integer;


begin
  readln(s);
  c:=s;
  for i := 1 to length(s) do
  begin
    for j := 1 to length(s) do
      begin
      if s[j] = s[i] then 
    

А що робити далі? Підкажіть, будь-ласка, словами..

2 Востаннє редагувалося koala (19.11.2014 21:29:10)

Re: Однакові символи

Що значить "скільки однакових символів"? В рядку aaabb скільки "однакових символів" - 2 (a і b повторюються), 3 (максимальна кількість повторюваних a), 3 (1 a і 1 b унікальні, решта - повторювані) чи 5 (a повторюються і b повторюються)?
Якщо треба скласти статистику по рядку, скільки там яких символів, то

letters:array['a'..'z'] of integer;
for i:=1 to length(s) do
  inc(letters[s[i]]);
Подякували: Q-bart1

3 Востаннє редагувалося Q-bart (19.11.2014 22:08:27)

Re: Однакові символи

Мені треба символи що повторюються(aaabb - 2)...
І що означає цей код(в попередньому пості)