прикладная математика

program lg;
uses crt;
var a,b,d,x:real;
       c:integer;
begin
        clrscr;
        b:=10;
        c:=1;
        x:=0;
        repeat
        a:=(b/100)*10;
        d:=a+b;
        x:=x+d
        b:=d;
        c:=c+1;
        until x>100;
        writeln ('Summarnyi probeg ',c,' dney');
        readkey;
end.

Program z2;
uses crt;
var x1,y1,x2,y2,k:integer;
begin
clrscr;
writeln('Представимое числа 1729 двумя различными способами');
writeln('  в виде суммы кубов двух натуральных чисел');
for y1:=1 to trunc(exp(1/3*ln(1729))) do      {цикл до корня кубического из N, дальше нет смысла}
for x1:=y1 to trunc(exp(1/3*ln(1729))) do    {первая пара}
for y2:=1 to trunc(exp(1/3*ln(1729))) do
for x2:=y2 to trunc(exp(1/3*ln(1729))) do    {вторая пара}
if (x1*x1*x1+y1*y1*y1=1729)and(x2*x2*x2+y2*y2*y2=1729)                    {если обе равны 1729}
and((x1<>x2)and(y1<>y2))then                 {и из разных чисел}
  begin
   writeln(x1,'^3+',y1,'^3=',1729);                {выводим}
   writeln(x2,'^3+',y2,'^3=',1729);
   readln;                    
   exit;                    {заканчиваем, а то еще раз выведет пары, только ноборот}
  end;
end.