Дана строка символов. Определить, какие символы и сколько раз встречаются в данной строке

@RazerOuroboros · Регистрация: 27.04.2014

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

Помогите пожалуйста

))

@CodeR · 04.05.2014, 15:16

Pascal

Var A:array[#0..#255] of byte;
    i:byte;
    s:string;
Begin
    write('Строка: ');readln(s);
    For i:=1 to Length(s) do
     inc(A[s[i]]);
    For i:=0 to 255 do
     if A[chr(i)]>0 then writeln(chr(i),' - ',A[chr(i)]);
    readln;
End.

@Ромаха · 04.05.2014, 15:18

А может массивы лучше инициализировать?
(да-да-да.. в данном случае переменные глобальные и поэтому они будут 0 автоматом..)

@RazerOuroboros 0 / 0 / 0 Регистрация: 27.04.2014 Сообщений: 6
		1
	Дана строка символов. Определить, какие символы и сколько раз встречаются в данной строке 04.05.2014, 15:11. Показов 2467. Ответов 2 Метки нет (Все метки) Помогите пожалуйста)) 0

@Ромаха 353 / 134 / 28 Регистрация: 16.12.2012 Сообщений: 607 Записей в блоге: 1
	04.05.2014, 15:18	3
	А может массивы лучше инициализировать? (да-да-да.. в данном случае переменные глобальные и поэтому они будут 0 автоматом..) 0

Опции темы

Дана строка символов. Определить, какие символы и сколько раз встречаются в данной строке

Решение