Строка символов представляет собой предложение,написанное на русском языке.предложение имеет длину не более 100 символов. Подсчитать количество различных букв ,которые входят в это предложение.

Пример работы:


ответ:

uses crt;
var
  i: integer;
 st:string;
 c:char;
 
procedure vvod_s(var s:string);
begin
  WriteLn('Введите строку слов,признак окончания-точка:');
  ReadLn(s);
end;

Begin
 clrscr;
  vvod_s(st);
 ...
End.

а что мне дальше делать,подскажите пожалуйста!!!

В FAQ есть Строки "Сколько раз слово w встречается в строке s ?" в твоем случае БУКВА...

Задача на обработку текста
, но печатать так:

 for ch := 'А' to 'я' do
   if cnt[ch] > 0 then writeln(ch, ' - ', cnt[ch]);

спасибо.разобрался,всё работает!