1. Подсчет различных букв в слове 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; writeln('количество различных букв = ', r:1:0); end; end.

Ответ: Программа находит количество различных букв в слове.

Описание программы:

• var s:string; - Объявление переменной s типа строка для хранения введенного слова.
• r:real; - Объявление переменной r типа вещественное число для хранения количества различных букв.
• i,j,n:integer; - Объявление переменных i, j, n типа целое число для использования в циклах и подсчетах.
• begin - Начало программы.
• r:=0; - Инициализация переменной r значением 0.
• readln(s); - Чтение введенного слова и сохранение в переменной s.
• for i:=1 to length(s) do begin - Цикл по каждой букве в слове.
• n:=0; - Обнуление счетчика n для каждой буквы.
• for j:=1 to length (s) do begin - Вложенный цикл для сравнения текущей буквы со всеми остальными буквами в слове.
• if s[i]=s[j] then inc(n); - Если текущая буква равна другой букве, увеличить счетчик n.
• end; - Конец вложенного цикла.
• r:=r+1/n; - Увеличение значения r на 1/n.
• end; - Конец внешнего цикла.
• writeln('количество различных букв = ', r:1:0); - Вывод количества различных букв.
• end. - Конец программы.

Ответ: Программа находит количество различных букв в слове.