Поогите с Здачкой

[AstraZak]

Вот не получается решить задачи,первую вроде решил(если не сложно проверьте правильно ли)

var a,b,c,x:integer;
Begin
{a-Gysei,x-Krolilov}
writeLn('Rabota #1');
a:=2;
x:=15;
while x>-1 do

begin
WriteLn(' Gysei=',a);
WriteLn(' Krolikov=',x);
a:=a+2;
x:=x-1;

end;
ReadLn;

А вот дальше задачки вообще не знаю как делать,кому не сложно помогите.

Маленький скрин с задачкой:

[Хыиуду]

С 1 задачей правильно, только не учтен вариант "0 гусей, 16 кроликов".
2.

Код: Выделить всё

i:=1;
sum:=x;
an:=x;
repeat
  sum:=sum+an;
  an:=-an*x*x/((2*i)*(2*i+1));
  i:=i+1;
until an<0.001;

По третьей то же самое, только вначале sum=0; an=10; в цикле an:=an*10/i

[AstraZak]

Хыиуду,
Ага сп,но есть 2 вопроса:
1.Если не сложно скажи что значает

until an<0.001;

2.И почему тут выдаёт ошибку?

an:=-an*x*x/((2*i)*(2*i+1));

Var i,sum,an,x:integer;

Begin

writeln('Задание №2');

i:=1;
sum:=x;
an:=x;
repeat
sum:=sum+an;
an:=-an*x*x/((2*i)*(2*i+1));
i:=i+1;
until an<0.001;



writeln('Задание №2');


i:=1;
sum=0;
an=10;
repeat
sum:=sum+an;
an:=an*10/i;
i:=i+1;
until an<0.001;


End.

[somewhere]

Var i,sum,an,x:integer;

Вот почему

[AstraZak]

Вот почему

Так и знал,что тип переменной не правильно поставил.

[Хыиуду]

Пардон, я там еще забыл модуль. Конечно, until abs(an)<0.001;
Ну, сами понимаете, тут таких спрашивателей человек по 10 на день - проверять свой код времени нет совершенно.