Задание 7. На рисунке приведена файловая структура, содержащая папки и файлы,
причём файлы на ней не отображены. Файлов вне папок в корневом
каталоге нет. Информация о местонахождении файлов, их типен
количестве приведена в таблице.
D
Oso
Праты
Chese
Замореянные
Товары
рук
Пула
Тарзан
Краа
Имя папки
Картинки
Кружки
10
Тарелки
2
Посуда
1 1
Продукты 6
Овощи
4 4
Свежие
10
Замороженные
Фрукты
6 6
Расширете файла
Документы Фото Музыка Текст Логотипы
Логотипы Архивы
3
2 1
2 10
-
4
8
4 2
1
4
4 1
1
6
1 І
3
8 2 2 2 3
-
10
7 2 2
3 4 4
12
6 2 1 2
-
6
5 5 3.
3 2 8
8
2
1
1
1
4
.
Определите количество графических файлов, которые размещены в папке
Продукты и во всех вложенных в неё папках,
ответ:

Отказы технических систем из-за дефектов изготовления и нарушений режимов эксплуатации; многие современные потенциально опасные производства спроектированы так, что вероятность крупной аварии на них весьма высока и оценивается величиной риска 10-4  и более; ошибочные действия операторов технических систем; статистические данные показывают, что более 60% аварий произошло в результате ошибок обслуживающего персонала; концентрация различных производств в промышленных зонах без должного изучения их взаимного влияния; высокий энергетический уровень технических систем; внешние негативные воздействия на объекты энергетики, транспорта и др.

Не особо знаю паскаль, так что дабы не накосячить с синтаксисом, покажу на примере. Тут всё просто - тебе лишь нужен цикл For и расчет процентов.

FOR i = 1 TO 100
percents = FIX(x * p / 100) ' здесь у нас есть переменная percents, которой присваиваются округленные функцией fix проценты (насколько я знаю, в паскале аналогичная функция называется Round)
x = x + percents 'тут всё понятно - переменной X присваивается она сама и годовые проценты по вкладу
IF x >= y THEN 'проверяем, не равен или не превысил ли наш вклад ожидаемую сумму
PRINT i 'в цикле For можно не заморачиваться с отслеживанием лет, переменная i сама подсчитает количество итераций-лет
END 'завершаем программу
END IF
NEXT i ' конец цикла
Можно ещё чисто для себя добавить в условие вывод переменной X, чтобы было нагляднее.