Определить есть во введенном предложении повторяющиеся символы, вывести их на экран, а также количество этих символов

@love26 · Регистрация: 19.04.2018

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

Определить есть во введенном предложении повторяющиеся символы, вывести их на экран, а также количество этих символов паскаль абс

Pascal

…
For i:=1 to length(a) do
   For j:=1 to i do
     if (a[i]=a[j]) and (i<>j) then
      begin
        inc(c);
        Writeln('Повторяющиеся элементы ',j,',',i,'.....',a[i]);
      end;
     if c=0  then
        WriteLn('Повторяющихся чисел НЕТ')
else writeln('повторяющихся символов - ',с);
…

@ZX Spectrum-128 · 19.04.2018, 17:49

Вывести повторяющиеся символы на экран
В строке символов определить количество каждого из символов. Вывести символы, которые повторяются

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	19.04.2018, 17:49	2
	Вывести повторяющиеся символы на экран В строке символов определить количество каждого из символов. Вывести символы, которые повторяются 0