Народ помогите., Pascal abc:for14,while11,series19,proc11,proc20 Опции

[Under Mark]

к зачету нужно решить решить в Pascal abc задачи из Programming Taskbook :
for14,while11,series19,proc11,proc20.
а я в паскале ваще полный 0 (((помогите пожалуйста!!!
вот сами задачи:
for14
дано целое число N(>0).Найти квадрат данного числа, используя для его вычислений следующую формулу:
N2(в квадрате)=1+3+5+...+(2*N-1)(*-умножение)
после добавления к сумме каждого слогаемого выводить текущее значение суммы(в результате будут выведены квадраты всех целых чисел от 1 до N)

While14:
Дано целое число N(>1).вывести наименьшее из целых чисел K, для которых сумма 1+2+...+K будет больше или равна N, и саму эту сумму.

Series19:
дано целое число N(>1)и набор из N целых чисел.Вывести те элименты в наборе, которые меньше своего левого соседа, и количество K таких элиментов.


proc 11
Описать процедуру Minmax(x,Y),записывающую в переменную Х минимальные из значений Х и Y, а в переменную Y-максимальные из этих значений (Х и Y-вещественные параметры, являющиеся одновременно входными и выходными).Используя четыре вызова этой процедуры,найти минимальное и максимальное из данных чисел А,В,С,D

Proc 20:
Описать функцию TriangleP(a, h), находящую периметр равнобедренного треугольника по его основанию а и высоте h, проведенной к основанию (a и h-вещественные). С помощью этой функции найти периметры трех треугольников, для которых даны основания и высоты. для нахождения боковой стороны b треугольника использовать теорему пифагора b2(2-в квадрате)=(а/2)2(в квадрате)+H2(в квадрате)

буду очень благодарен!


Сообщение отредактировано: Under Mark - 20.12.2007 21:58