Лабораторна работа по порограммированию. Вариант 33

Вариант 13 Задача 1

var A : array [1..n,1..n] of real; Найти сумму элементов из области матрицы А, отмеченной символом ‘*’ (диагонали входят в выделенную область):

* * * * * * *

0 * * * * * 0

0 0 * * * 0 0

0 0 0 * 0 0 0

0 0 * * * 0 0

0 * * * * * 0

* * * * * * *

Задача 2

Дана строка. В алфавитном порядке напечатайте (по разу) все малые латинские буквы, входящие в эту строку ровно два раза.

Указание: решение задачи простое, если вы будете использовать множества.

Заведите три множества X1, X2 и X3 (сначала эти множества пустые). И в цикле просмотрите все символы из введенной строки. С каждым символом — маленькой латинской буквой — выполняйте следующие действия:

1. Если этого символа нет в X1, то поместите его туда (после окончания цикла множество X1 содержит все символы из строки).

2. Если этот символ есть в X1 и нет в X2, то поместите этот символ в X2 (после окончания цикла множество X2 содержит все символы из строки, которые там встречаются более одного раза).

3. Если этот символ есть в X1 и в X2, то поместите этот символ в X3 (после окончания цикла множество X3 содержит все символы из строки, которые там встречаются более двух раз).

После окончания цикла распечатайте в алфавитном порядке все элементы из разности множеств X2–X3.

Это будет ответ.

(Используйте цикл for c:=’a’ to ‘z’ do если c входит в X2–X3, то печать c.)