VIII занятие "Решение олимпиадных задач по pascal"

В связи с проведением первого этапа республиканской олимпиады по информатике на восьмом занятии мы решили подробно разобрать наиболее сложные задания из предложенных олимпиадных вариантов и рассмотреть различные способы их решения.


Задача 3

Вводятся числа от 1 до 15 до тех пор, пока не будет введен 0. Всего будет введено не больше 100 чисел.

Посчитать количество единиц, количество двоек, количество троек и так далее в этой последовательности (на выходе всегда должно быть 20 чисел).

Пример ввода:

1 1 4 1 5 8 6 3 5 15 13 15 15 14 9 8 13 13 4 8 0

Пример вывода:

1  2  3  4  5  6  7  8  9  10  11  12  13  14  15

3  0  1  2  2  1  0  3  1    0    0    0    3    1    3

Решение:

Скачать решение в текстовом формате

Задача 5 
В лесу на одной из полян ребята из 11 класса одной из сельских школ решили сделать футбольное поле. Но на этой поляне растет несколько деревьев. Зная координаты той части поляны, на которой одиннадцатиклассники собираются делать поле, и координаты деревьев, растущих на поляне, помогите узнать ребятам, сколько деревьев растет на данном участке поляны, не учитывая те, которые растут на границе поля.  Границы  поля параллельны осям координат.

Решение:

Скачать решение в текстовом формате