@suit13

1. Определить полусумму длин двух векторов А(3), В(5).
Длина вектора определяется как корень квадратный из
суммы квадратов его проекций.

2. Дана последовательность, состоящая из 10 слов. Напечатать
все различные слова, указав для каждого из них число его
вхождений в последовательность.


3. Пpогpамма. Дана непустая последовательность слов из стpочных
pусских букв; между соседними словами - запятая, за
последним словом - точка. напечатать в алфавитном поpядке
все гласные (*) буквы, котоpые входят в каждое слово.


4. type число=1..31; месяц=1..12;
год=1..2000;
дата=record ч:число; м:месяц;
г:год end;
Cчитая, что все даты даются по григорианскому календарю
(новому стилю), описать функцию послчисло (d), вычисляющую
количество дней в том месяце, которому принадлежит дата d.

0