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.

Question

Вопрос:

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.

Ответ:

Accepted Answer

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

Краткое пояснение: Программа подсчитывает, сколько раз каждая буква встречается в слове, и выводит количество различных букв.

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

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. - Конец программы.

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

Цифровой атлет!

Скилл прокачан до небес. Минус 15 минут нудной домашки. Потрать их на катку или новый рилс.

Не будь NPC — кинь ссылку бро, который всё еще тупит над этой задачей.

Ответ:

Похожие