Задача с буквами.

[n1ce > Kuzia]

В заданном слове определить сколько раз встретилась каждая буква.

[alex_fcsm]

uses crt;
var s:string;
    i,j,k:integer;
    q:set of char;
    
begin
clrscr;
readln(s);
q:=[];
for i:=1 to length(s) do
 if not (UpCase(s[i]) in q) then begin
                                 k:=0;
                                 for j:=i to length(s) do
                                   if UpCase(s[j])=Upcase(s[i]) then inc(k);
                                 q:=q+[UpCase(s[i])];
                                 writeln(s[i],' ',k)
                                 end;
readln;
end.

[n1ce > Kuzia]

спасибо большое

[capta1n]

const q=['a'..'z']

[alex_fcsm]

Сообщение от capta1n

const q=['a'..'z']

Зачем это?Я подразумевал q как множество уже рассмотренных символов(причем прописных).

[n1ce > Kuzia]

чтот в задаче не правилбно считает букви

[alex_fcsm]

Сообщение от n1ce > Kuzia

чтот в задаче не правилбно считает букви

Напишите пример где не так работает

[n1ce > Kuzia]

а не се норм :D

[n1ce > Kuzia]

cпасибо еще раз большое

[capta1n]

я проверил - все работает хорошо, просто я говорил Алекс насчет того, что надо считать буквы, а не все символы - я имел в виду вот так объявить

const t=['a'..'z'];
....
begin
....
if (not (UpCase(s[i]) in q)) and (UpCase(s[i]) in t) then ...