Подсчитать, сколько различных символов встречаются в строке

@NILOK · Регистрация: 24.10.2010

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

Дана строка символов. Подсчитать, сколько различных символов встречаются в ней. Вывести их на экран

@Puporev · 24.10.2010, 10:23

Pascal

uses crt;
var s:string;
    i,k:byte;
    m:set of char;
begin
clrscr;
writeln('Введите строку:');
readln(s);
k:=0;
m:=[];
writeln('Разные символы строки:');
for i:=1 to length(s) do
if not(s[i] in m)then
 begin
  write(s[i]);
  k:=k+1;
  m:=m+[s[i]];
 end;
writeln;
writeln('Их количество=',k);
readln
end.

@NILOK 0 / 0 / 1 Регистрация: 24.10.2010 Сообщений: 27
		1
	Подсчитать, сколько различных символов встречаются в строке 24.10.2010, 10:13. Показов 1482. Ответов 1 Метки нет (Все метки) Дана строка символов. Подсчитать, сколько различных символов встречаются в ней. Вывести их на экран 0

Опции темы

Подсчитать, сколько различных символов встречаются в строке

Решение