Вопрос по информатике:
Дано слово. Определить сколько различных букв в нём. Программа Паскаль
- 12.01.2018 23:32
- Информатика
- remove_red_eye 5503
- thumb_up 17
Ответы и объяснения 2
Программа (строчные и заглавные буквы считаются различными):
var s:string; i,k:integer; m:set of char; c:char;
begin
writeln('Введите слово:');
readln(s);
m:=[];
for i:=1 to length(s) do m:=m+[s[i]];
k:=0;
for c:=chr(32) to chr(255) do
if c in m then k:=k+1;
writeln('Количество различных букв = ',k);
end.
Пример:
Введите слово:
электрификация
Количество различных букв = 11
- 14.01.2018 10:56
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.