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

End.

2) Проверить работу программы на компьютере.

Задание 2. Вывести на экран в обратном порядке все простые числа от 2 до 201.

Обозначения: СА - множество анализируемых чисел; СР - множество простых чисел.

1) Рассмотреть программу решения задачи. Объяснить работу программы.

{ Алгоритм " Решето Эратосфена" }

Type MN = set of 2.. 201;

Var CA, CP: MN;

P, K: Integer;

BEGIN

CA: =[2.. 201];

CP: =[];

P: =2;

Repeat

While Not (P in CA) do P: =P+1;

CP: =CP+[P]; { включение Р в результирующее мн-во}

K: =p;

Repeat

CA: =CA-[K]; { исключение К и всех кратных ему чисел из исходного мн-ва}

K: =K+P;

Until K > 201;

Until CA=[];

For K: =201 downto 2 do

If K in CP then write ( K: 5);

END.

2) Проверить работу программы на компьютере.

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

1. Дана последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности:

а) буквы от 'A' до 'F' и от 'Х' до 'Z';

б) знаки препинания;

в) буквы от 'A' до 'Z' и цифра от '0' до '5'.

2. Заданы два слова. Написать программу, которая проверит, можно ли получить второе слово из букв первого.

3. Даны 150 натуральных чисел. Написать программу для вывода тех чисел, которые являются числами Фибоначчи. Повторяющиеся числа не выводить.