Задания к данному параграфу

Выберите по две задачи, отмеченных (*), каждой главы работы [18]. Решите задачи. Исполните составленные программы, используя метод ручного моделирования исполнения программы компьютером в виде наглядных протоколов, для составленных вами тестов.

i=4, 4≤3(нет)	Таблица 6. Ввод элементов множества, программа TaskSet	На экране:3 – элемент? next=9; i=3+1=4 SetA=[8,6]+[9]=[8,6,9] На экране: Вводить элемент множества д/н? sim=‘н’ ‘н’=‘н’ (да)	Таблица 7. Ввод элементов множества, программа TaskSet1	i=10,10≤9(нет)	Таблица 8. Вывод элементов множества
i=3, 3≤3(да)   На экране: 3 – элемент? next=9 SetA=[8,6]+[9]=[8,6,9]
i=9, 9≤9(да) 9Î[8,6,9](да) На экране: 6 8 9
i=2, 2≤3(да)   На экране: 2 – элемент? next=6 SetA=[8]+[6]=[8,6]	На экране:2 – элемент? next=6; i=2+1=3 SetA=[8]+[6]=[8,6] На экране: Вводить элемент множества д/н? sim=‘д’ ‘д’=‘н’ (нет)	i=8, 8≤9(да) 8Î[8,6,9](да) На экране: 6 8
i=7, 7≤9(да) 7Î[8,6,9](нет)
SetA=[]; На экране: Задайте количество элементов множества n=3; i=1, 1≤3(да)   На экране: 1 – элемент? next=8 SetA=[]+[8]=[8]	SetA:=[]; i:=1   На экране:1 – элемент? next=8; i=1+1=2 SetA=[]+[8]=[8] На экране: Вводить элемент множества д/н? sim=‘д’ ‘д’=‘н’ (нет)	i=6, 6≤9(да) 6Î[8,6,9](да) На экране:
i=5, 5≤9(да) 5Î[8,6,9](нет)
… SetA:=[]; Write(‘Задайте кол-во элементов множества’); Readln(n); for i:=1 to n do begin Write(i,’ – элемент?’); Readln(next); SetA:=SetA+[next]; end;	… SetA:=[]; i:=1; Repeat Write(i,’ – элемент?’); Readln(next); i:=i+1; SetA:=SetA+[next]; Write(‘Вводить эл-т множества д/н?’); Readln(sim) Until sim=’н’;	for i:=5 to 9 do if i in SetA then Write(i:4);