1 Тема від Q-bart

  • Q-bart
  • Q-bart
  • Хочу бути модератором, щоб такі штуки ставити
  • Поза форумом
  • Звідки: Центр інтернету
  • Дата реєстрації: 14.06.2014
  • Повідомлень: 1 725
    • Репутація: 717

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

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

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 Востаннє редагувалося koala (19.11.2014 20:29:10)

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 603
    • Репутація: 13312

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

koala вебсайт

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

  • Q-bart
  • Q-bart
  • Хочу бути модератором, щоб такі штуки ставити
  • Поза форумом
  • Звідки: Центр інтернету
  • Дата реєстрації: 14.06.2014
  • Повідомлень: 1 725
    • Репутація: 717

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

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