Определить количество различных букв в слове - Pascal ABC

Формулировка задачи:

дано слово. определить сколько различных букв в нем Добавлено через 2 часа 8 минут помогите пожалуйста

Код к задаче: «Определить количество различных букв в слове - Pascal ABC»

textual
Var s:string;
i,j,k,n:integer;
Begin
Writeln('Введите слово:');
Readln(s);
k:=0;
for i:=1 to Length(s) do
 begin
  n:=0;
  for j:=i+1 to Length(s) do
   if s[i]=s[j] then n:=n+1;
  if n=0 then k:=k+1;
 end;
Writeln('количество различных символов = ',k);
Readln;
End.

8   голосов, оценка 4.125 из 5


СОХРАНИТЬ ССЫЛКУ