Определить количество различных букв в слове - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д