Строка символов представляет собой предложение,написанное на русском языке.предложение имеет длину не более 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 есть http://forum.pascal.net.ru/index.php?showtopic=2361 "Сколько раз слово w встречается в строке s ?" в твоем случае БУКВА...
http://forum.pascal.net.ru/index.php?s=&showtopic=3426&view=findpost&p=31202
, но печатать так:
for ch := 'А' to 'я' do
if cnt[ch] > 0 then writeln(ch, ' - ', cnt[ch]);
спасибо.разобрался,всё работает!