Вопрос по информатике:
Тема Множества:
Дан текст из строчных латинских букв, за которым следует
точка. Напечатать:
- все буквы, входящие в текст не менее двух раз;
- все буквы, входящие в текст по одному разу.
В Паскале АВС
- 01.10.2016 09:13
- Информатика
- remove_red_eye 9222
- thumb_up 36
Ответы и объяснения 1
Var
l: array ['a'..'z'] of integer;
s: string;
i:integer;
c:char;
begin
read(s);
for i := 1 to length(s) do
if s[i] in ['a'..'z'] then
l[s[i]] := l[s[i]] + 1
else if s[i] = '.' then
break;
for c := 'a' to 'z' do
if l[c] >= 2 then
writeln(c, ' = ', l[c]);
for c := 'a' to 'z' do
if l[c] = 1 then
writeln(c, ' = ', l[c]);
end.
- 02.10.2016 17:48
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.