Решаем задачи Абрамян на Паскале. Proc 18

Proc18. Описать функцию CircleS($$R$$) вещественного типа, находящую площадь круга радиуса $$R$$ ($$R$$ — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса $$R$$ вычисляется по формуле $$S = \pi*R^2$$. В качестве значения $$\pi$$ использовать 3.14.

Цикл с параметром: группа Series

Во всех заданиях данной группы предполагается, что исходный набор содержит ненулевое число элементов (в частности, число N всегда больше нуля). В заданиях на обработку нескольких наборов чисел (Series29–Series40) количество наборов K также всегда является ненулевым. Для решения заданий из данной группы следует использовать «однопроходные» алгоритмы, позволяющие получить требуемый результат после однократного просмотра набора исходных данных. …