Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
<<}|{eK@>>
0 / 0 / 0
Регистрация: 16.12.2009
Сообщений: 8
1

Множества

19.02.2010, 18:05. Просмотров 875. Ответов 1
Метки нет (Все метки)

В заданной последовательности символов, оканчивающиеся точкой, определить общее число входящих в неё букв А Е С Н. Распечатать исходную последовательность символов, цифры, входящие в эту последовательность в убывающем порядке и кол-во вхождений соответсвующих букв.
Заранее спасибо))))))
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.02.2010, 18:05
Ответы с готовыми решениями:

Сформировать множества А и В по заданному числу элементов для каждого множества
2)Сформировать множества А и В, базовый тип которых -70..30, по заданному числу...

Множества. Из множества латинских букв выделить множество символов, не входящих в ваше имя
из множества латинских букв выделить множество состоящее из символов не...

Множества: Задано множество целых чисел C. Создать два множества, содержащие числа больше 5 и меньше 5.
Задано множество целых чисел C. Создать два множества, содержащие числа больше...

Сформировать два множества, первое из которых содержит все простые числа из данного множества, а второе все составные
Имеется множество, содержащее натуральные числа из некоторого диапазона....

Даны два множества М и N, состоящие из 10 целых чисел из диапазона 1.100. Из данных множеств выделить соответственно под-множества М1 чисел
Даны два множества М и N, состоящие из 10 целых чисел из диапазона 1..100. Из...

1
Vovan-VE
13161 / 6546 / 1038
Регистрация: 10.01.2008
Сообщений: 15,070
19.02.2010, 19:25 2
Лучший ответ Сообщение было отмечено <<}|{eK@>> как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var s:string;
    i,L, a:Integer;
    d:set of char;
    ch:char;
begin
    write('s=');
    readln(s);
    L := Length(s);
    a := 0;
    d := [];
    for i := 1 to L do begin
        if s[i]='.' then break
        else if s[i] in ['A','a','E','e','C','c','H','h'] then inc(a)
        else if s[i] in ['0'..'9'] then Include(d, s[i]);
    end;
    writeln(s);
    if d<>[] then begin
        write('Digits: ');
        for ch:='0' to '9' do begin
            if (ch in d) write(ch);
        end;
        writeln;
    end else writeln('No digits');
    writeln('Letters AECH: ', a);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.02.2010, 19:25

Образовать множество, которое бы содержало один из элементов множества A и один из элементов множества числа B
кто знает как решить Даны множества A; B. Образовать множество, которое бы...

Множества
Дано множество Х1, содержащее символы из диапазона . Сформировать новое...

множества
помогите пожалуйста решить задача1:Ввести четыре слова на русском...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru