Три Задачи Паскаль, Срочно нужна помошь решить 3 задачи. Задачи мб легкие 2 курс. Опции

[die]

Здраствуйте помогите решить ( Три задачи на уровне 2 курса колледжа ) . Задачи нужны именно на сегодня к 15 декабря до 22-00. Пожалуйста помогите. ( Прикрепляю картинки задач ).

[amega]

хехе видимо сесия дает о сибе знать
лан нашол я тут свою методу в полке по первой задачи:
простенький цикл задаеш

i:=1; // i считает какой сейчас член последовательности 
xNew:=2;
repeat
xold:=xNew;
xNew:=2+1/xOld;
i:=i+1;
until abs(xOld-xNew)<eps;

Если нада вывести все то в цикле вставляеш вывод i

по третьей задачи
помоему там простой цикл for

p:=1;
for i:=2 to n do 
 begin
  p:=p*(1-1/sqr(i));
 end;

по второй зади сказать нече не могу я пока на 1 курсе и небыло еще предмета ......