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

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

Напечатать величины a1, a2, …, an, где a0 — заданное целое число, ai = a [i / 2] i 1 a + − при i = 1, 2, … n. [i/2] означает целую часть числа i/2.

Задача 2

type S = set of 0..50; Описать функцию p (A), подсчитывающую произведение элементов множества A типа S. (Например, sum ([5,8,23] = 920.)) Программа: введите множество A (ноль используйте как прекращение ввода). Выдайте, вызвав функцию p, произведение элементов множества A.