Кодинг
★ Рубрика: Кодинг
★ Тема: Pascal

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

В программе подсчитывается количество различных букв в заданном слове.
var s:string;
 r:real;
 i,j,n:integer;
begin
 r:=0;
 readln(s);
 for i:=1 to length(s) do begin
 n:=0;
 for j:=1 to length(s) do begin
 if s[i]=s[j] then inc(n);
 end;
 r:=r+1/n;
 end;
 writeln('количество различных букв = ', r:1:0);
end.
 Похожие публикации: Pascal

Войдите, чтобы добавить Ваш ответ. [ Регистрация | Вход ]