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

@Aboltys · Регистрация: 08.01.2009

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

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

@schdub · 17.02.2009, 17:33

Воть...

Pascal

uses CRT;
 
var simvoli : array[1..255] of byte;
    i, len  : byte;
    s       : string;
 
begin
  ClrScr;
 
  for i:= 1 to 255 do
    simvoli[i]:=0;
 
  WriteLn('Vvedite ishodnuyu stroky i najmite <ENTER>.');
  ReadLn(s);
 
  len := length(s);
  if len=0 then
    WriteLn('[ERROR] Vvedene pustaya stroka.')
  else
  begin
 
    for i:=1 to len do
      Inc(simvoli[ord(s[i])]);
 
   for i:=32 to 255 do
     if simvoli[i]>0 then
       WriteLn('Simvol "',Chr(i),'" vstrechaetsya ',simvoli[i],' raz.');
 
  end;
  
  Write('Press any key for continue...');ReadLn;
end.

Данная программа, считает разными символами, например, "S" и "s".

@Aboltys 45 / 43 / 3 Регистрация: 08.01.2009 Сообщений: 306
		1
	Дана строка. Подсчитать, сколько различных символов встречается в ней 16.02.2009, 23:42. Показов 2575. Ответов 1 Метки нет (Все метки) Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран. 0

	17.02.2009, 17:33

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

Решение