Задачи для самостоятельного решения

1. Составить программу, задающую 4 множества, и демонстрирующую все операции над множествами.

2. type строка = array [1..10] of char;

Описать функцию счет(S), подсчитывающую общее количество цифр и знаков ‘+‘, ‘-‘, ‘*‘, входящих в строку.

Составить, программу, использующую эту функцию.

3. type M = set of 0..99;

Описать функцию card (А) , подсчитывающую количество элементов, в множестве А типа. М.

Составить программу, использующую эту функцию.

4. type letters = set of 'a'..'z';

Описать процедуру print(А), печатающую в алфавитном порядке все элементы множества А, имеющего тип letters.

Составить, программу, использующую эту процедуру.

5. type номер = 1..4;

матрица = array [номер, номер] of real;

ном = set of номер;

Описать функцию sum(A, s1,s2), вычисляющую сумму тех элементов матрицы А, номера строк и столбцов которых принадлежат соответственно непустым множествам s1 и s2 типа ном. Составить программу, использующую эту функцию.

6. type натур = 1..maxint;

Описать процедуру print(n), печатающую в возрастающем порядке все цифры, не входящие в десятичную запись натурального числа n. Составить программу, использующую эту процедуру.

7. type натур = 1..maxint;

Описать функцию digits(n) подсчитывающую количество различных (значащих) цифр в десятичной записи натурального числа n. Составить программу, использующую эту функцию.

8. Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в текст не менее двух раз.

9. Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в текст по одному разу.

10. Дано 50 целых чисел от 1 до 100. Определить сколько чисел первая значащая цифра в десятичной записи которых 1 или 2.

12. Дано 50 целых чисел от 1 до 100. Определить сколько чисел не содержат ни одной из следующих цифр: 3, 5, 9.