Задачи на итерационные циклы

[ILTBW]

Здраствуйте, хочу представить вашему вниманию две задачи на итерационные циклы, которые я, увы, решить не смог. Обращаюсь к людям, которые хорошо разбираются в этом. Решите, пожалуйста!

1. Составить программу, которая находит все пары положительных целых чисел х, у , удовлетворяющих уравнению

Ах+Ву=С

где А, В, С - натуральные числа, причем С>max(A,B).


2.Вычислить приближенно с заданной точностью eps=0.001 и выдать на экран значение представленной ниже функции, заданной в виде ряда Тейлора, заданного значения аргумента х. Подсчитать количество просуммированных членов ряда.
{к сожалению не знаю как обозначается степень, поэтому обозначал так
"х в кубе" - х^3, "x в пятой степени" - х^5 и т.д.}

ln((1+x)/(1-x))=2(x+(x^3/3)+(x^5/5)+...+(x^(2n+1)/(2n+1))+...), |x|<1.

Задачи нужно решить для Pascal

[wict0r]

удалено (сорри, перепутал раздел с фрилансом видимо, формулировка 'Решите, пожалуйтса' меня сбила =))

[ILTBW]

Неужели никто не знает?
Тему я эту полностью пропустил, поэтому сам не решу...

[Sazary]

Первая:

uses crt;
var
A,B,C,x,y : longint;

function fmax(aa,bb : longint) : longint;
 begin
 if aa>bb then fmax := aa
 else fmax := bb;
 end;

begin
clrscr;
repeat
 writeln('----');
 writeln('Vvedite A B C (4erez probel)');
 readln(A,B,C);
 if (a<0) or (b<0) or (c<0) then exit;
 until (c>fmax(a,b));
writeln('----------');
writeln('  x  |  y  ');
for x := 1 to C do
  begin
  y:=1;
  while (A*x+B*y<=C) do
   begin
   if (A*x+B*y = C) then writeln(x:5,y:5);
   inc(y);
   end;
  end;

readln;
end.

[Sazary]

Вторая:

uses crt;
const e = 0.001;
var
f,x,tm : double;
n,k : longint;
begin
clrscr;
write('Vvedite x (|x|<1): ');
readln(x);
if abs(x)>=1 then exit;
writeln('To4nost e= ',e:6:3);
n:=3;
tm := x;
f := x;
k := 1;
repeat
 tm := tm*x*x/n;
 inc(n,2);
 inc(k);
 f := f + tm;
until tm<=e;
f := f*2;
writeln('F= ',f:15:12);
writeln('Kol-vo 4lenov: ',k);
readln;
end.