Помогите пожалуйста с информатикой

Ответ:

Я сделал проще: написал программку поглядел что выдаст.

2)

Var b,n:integer;

begin

B:=0;

N:=1;

Repeat

B:=b+n;

N:=n+2;

Until ngt;10;

Write(b);

end.

Выдало 25

3)

program HelloWorld;

Var a,k:integer;

begin

A:=0;

K:=1;

While klt;4 do begin

A:=(a+k)*k;

K:=k+1;

End;

Write(a);

end.

Вывело 27