#include <iostream>
#include <cmath>

using namespace std;

int main( int argc, char *argv[] )
{
    double product = 1.0;
    int power = 0;

    while ( true )
    {
        double temp = product * ( 1.0 + pow( 0.5, pow( 2.0, power ) ) );
        if ( temp == product ) break;
        product = temp;
        ++power;
    }

    cout << product << endl;
}

d:=trunc(x*10) mod 10;

L:=trunc(x/10) mod 10 + trunc(x) mod 10;

#include <stdio.h>

#define N 3
int main(int argc, char *argv[])
{
  double A[N][N]; double B[N];
  int i,k; float d;
  for(i=0;i<N;i++) for(k=0;k<N;k++){
      printf("A[%d,%d]=",i,k);
      scanf("%f",&d); A[i][k] = d;
  }
  for(i=0;i<N;i++){
      printf("B[%d]=",i);
      scanf("%f",&d); B[i] = d;
  }
 
  double eps = 0.001;
  double x[N],x_1[N];

  k=1;
  for(i=0;i<N;i++) x[i] = B[i] / A[i][i]; // начальное предположение
 
  int stop = 1000; // максимальное колличество итераций
  int f=1;
  while( (k < stop) && f ){
     for(i=0;i<N;i++) x_1[i] = x[i];
     for(i=0;i<N;i++){
        double S = B[i]; int j;
        for(j=0;j<N;j++) if(i-j) S -= A[i][j] * x_1[j];
        x[i] = S / A[i][i];
        for(j=0;j<N;j++) if(fabs(x[j] - x_1[j]) > eps){ k++; break; }
        if(j==N) f = 0; // дошли до нужной точности
     }
  }
 
  for(i=0;i<N;i++) printf("%f ",x[i]);
  printf("\n k=%d \n",k);

  return 0;
}

uses crt;
type
  {‹Ё­Ґ©­л© ¤ўг­ Їа ў«Ґ­­л©}
  PList=^TList;
  TList=record
          inf: integer;
          Pred: PList;
          Next: PList
        end;
{ѓ«®Ў «м­лҐ ЇҐаҐ¬Ґ­­лҐ ¤«п а Ў®вл б® бЇЁбЄ®¬}
var
  Head: pointer;  {Ќ з «® бЇЁбЄ }
{  MaxIndex: byte;  {Љ®«ЁзҐбвў® н«Ґ¬Ґ­в®ў ў бЇЁбЄҐ}

procedure AddItem(Index: byte; Value: integer);
{„®Ў ўЁвм н«Ґ¬Ґ­в ў бЇЁб®Є}
var
  Item: PList;  {„®Ў ў«пҐ¬л© н«Ґ¬Ґ­в}
  P: PList;     {‚бЇ®¬®Ј вҐ«м­лҐ н«Ґ¬Ґ­вл}
  i: byte;      {‘зсвзЁЄ жЁЄ« }
begin
  if MemAvail<sizeof(Item^) then exit;  {ЌҐ еў в Ґв Ї ¬пвЁ}
  New(Item);
  Item^.Inf := Value;
  p:=nil;
  if Head=NIL then
    begin  {‘®§¤ вм ­®ўл© бЇЁб®Є}
      Head := Item;
      Item^.Pred := NIL;
      Item^.Next := NIL;
      exit
    end;
  P := Head;
  dec(Index);
  while (P^.Next<>NIL)and(Index<>0) do
    begin
      P:=P^.Next;
      dec(Index)
    end;
  if Index>0 then
    begin  {„®Ў ўЁвм н«Ґ¬Ґ­в ў Є®­Ґж бЇЁбЄ }
      P^.Next := Item;
      Item^.Next := NIL;
      Item^.Pred := P;
      exit
    end;
  if P=Head then
    begin   {‚бв ў«пҐ¬ ЇҐаўл© н«Ґ¬Ґ­в}
      Item^.Pred:=NIL;
      Item^.Next:=P;
      P^.Pred:=Item;
      Head:=Item;
      Exit
    end;
  {‚бв ўЄ  ў бҐаҐ¤Ё­г бЇЁбЄ }
  Item^.Pred:=P^.Pred;
  Item^.Next:=P;
  P^.Pred:=Item;
  if P^.Pred<>NIL then P^.Pred^.Next:=Item else Head:=Item
end;  {AddItem}
{-----------------}
procedure DeleteItem(Index: byte);
{“¤ «Ёвм н«Ґ¬Ґ­в Ё§ бЇЁбЄ }
var
  P,P1: PList;  {‚бЇ®¬®Ј вҐ«м­лҐ н«Ґ¬Ґ­вл}
  i: byte;      {‘зсвзЁЄ жЁЄ« }
begin
  if Head=NIL then Exit;  {ЌҐзҐЈ® г¤ «пвм}
  P := Head;
  if P^.Next=NIL then
    begin  {“¤ «Ёвм бЇЁб®Є}
      dispose(Head);
      Head := NIL;
      Exit
    end;
  dec(Index);
  while (P^.Next<>NIL)and(Index<>0) do
    begin
      P:=P^.Next;
      dec(Index)
    end;
  if P=Head then
    begin   {“¤ «пҐ¬ ЇҐаўл© н«Ґ¬Ґ­в}
      Head:=P^.Next;
      P^.Next^.Pred:=NIL;
      dispose(P);
      Exit
    end;
  {P1:=Head;
   while P1^.Next<>P do
     P1:=P1^.Next;}
  if P^.Pred<>NIL then P^.Pred^.Next:=P^.Next;
  P^.Next:=P^.Pred;
  dispose(P)
end;  {DeleteItem}
{-----------------}
function LoadFromFile(name: string):byte;
{‡ Јаг¦ Ґв бЇЁб®Є Ё§ д ©« }
{
  0-ўбс ­®а¬ «м­®
  1-®иЁЎЄЁ „Ћ‘
  2-нв® ­Ґ д ©« бЇЁбЄ 
  3-­Ґеў вЄ  Ї ¬пвЁ ¤«п а §¬ҐйҐ­Ёп бЇЁбЄ 
}
var
  f: file of integer;
  f1:file of byte;
  ByteSize: Longint;
  P1,P2: PList;
  i: byte;
begin
  LoadFromFile:=0;
  assign(f,name);
  assign(f1,name);
  {$I-}
  reset(f1);
  {$I+}
  if ioresult<>0 then
    begin
      LoadFromFile:=1;
      exit
    end;
  ByteSize:=filesize(f1);
  close(f1);
  reset(f);
  if (filesize(f)=0)or(ByteSize mod sizeof(integer)<>0) then
    begin
      LoadFromFile:=2;
      exit
    end;
  if memavail<(filesize(f)*sizeof(P1^)) then
    begin
      LoadFromFile:=3;
      exit
    end;
  P1:=NIL; P2:=NIL;
  for i:=1 to filesize(f) do
    begin
      new(P1);
      read(f,P1^.Inf);
      if i=1 then Head:=P1;
      P1^.Pred:=P2;
      P1^.Next:=NIL;
      if P1^.Pred<>NIL then P1^.Pred^.Next:=P1;
      P2:=P1;
      P1:=NIL
    end;
  close(f);
end;  {LoadFromFile}
{-----------------}
function SaveToFile(name: string): byte;
{‡ ЇЁблў Ґв бЇЁб®Є ў д ©«}
{
  0-ўбс ­®а¬ «м­®
  1-®иЁЎЄЁ „Ћ‘
  2-­Ґв бЇЁбЄ 
}
var
  f: file of integer;
  P1: PList;
  i: byte;
begin
  SaveToFile:=0;
  if Head=NIL then
    begin
      SaveToFile:=2;
      exit
    end;
  assign(f,name);
  {$I-}
  rewrite(f);
  {$I+}
  if ioresult<>0 then
    begin
      SaveToFile:=1;
      exit
    end;
  P1:=Head;
  while P1<>NIL do
    begin
      write(f,P1^.Inf);
      P1:=P1^.Next
    end
end;  {SaveToFile}
{-----------------}
function GetIndex(Value: Integer): byte;
{‚®§ўа й Ґв ­®¬Ґа ЇҐаў®Ј® н«Ґ¬Ґ­в  б® §­ зҐ­ЁҐ¬ Value
  Ё 0, Ґб«Ё §­ зҐ­ЁҐ ­Ґ ­ ©¤Ґ­®}
var
  P: PList;     {‚бЇ®¬®Ј вҐ«м­л© н«Ґ¬Ґ­в}
  ind: byte;    {€­¤ҐЄб н«Ґ¬Ґ­в }
begin
  GetIndex:=0;
  If Head=NIL then Exit;  {‘ЇЁбЄ  ­Ґв}
  P := Head;
  Ind:=1;
  if P^.Inf=Value then
    begin
      GetIndex:=Ind;
      exit
    end;
  while P^.Next<>NIL do  {€¤с¬ Є Є®­жг бЇЁбЄ }
    begin
      P := P^.Next;
      inc(Ind);
      if P^.Inf=Value then
        begin
          GetIndex:=Ind;
          exit
        end
    end
end;  {GetIndex}
{-----------------}
function GetValue(Index: byte): integer;
{‚®§ўа й Ґв §­ зҐ­ЁҐ н«Ґ¬Ґ­в  б ­®¬Ґа®¬ Index}
var
  P: PList;     {‚бЇ®¬®Ј вҐ«м­л© н«Ґ¬Ґ­в}
  i: byte;      {‘зсвзЁЄ жЁЄ« }
begin
  Getvalue:=0;
  If Head=NIL then Exit;  {‘ЇЁбЄ  ­Ґв}
  P := Head;
  if Index=0 then Index:=1;
  dec(index);
  while (P^.Next<>NIL)and(Index<>0) do
    begin
      P:=P^.Next;
      dec(Index)
    end;
  GetValue:=P^.Inf
end;  {GetValue}
{-----------------}
procedure PrintList;
{‚뢥бвЁ н«Ґ¬Ґ­вл бЇЁбЄ  ­  нЄа ­}
var
  P: PList;     {‚бЇ®¬®Ј вҐ«м­л© н«Ґ¬Ґ­в}
  i: byte;      {‘зсвзЁЄ жЁЄ« }
begin
  P:=Head;
  i:=0;
  while P<>NIL do
    begin
      inc(i);
      writeln('ќ«Ґ¬Ґ­в [',i,'] = ',P^.Inf);
      P:=P^.Next
    end
end;  {PrintList}
{-----------------}
procedure PrintLst;
{‚뢥бвЁ н«Ґ¬Ґ­вл бЇЁбЄ  ­  нЄа ­ ®в Є®­ж  Є ­ з «г}
var
  P: PList;     {‚бЇ®¬®Ј вҐ«м­л© н«Ґ¬Ґ­в}
  i: byte;      {‘зсвзЁЄ жЁЄ« }
begin
  P:=Head;
  i:=1;
  if P=NIL then exit;
  while P^.Next<>NIL do
    begin
      P:=P^.Next;
      inc(i);
    end;
  while P<>NIL do
    begin
      writeln('ќ«Ґ¬Ґ­в [',i,'] = ',P^.Inf);
      P:=P^.Pred;
      dec(i)
    end
end;  {PrintLst}
{-----------------}

const
  HelpTitle = 'ђ Ў®в  б «Ё­Ґ©­л¬ ¤ўг­ Їа ў«Ґ­­л¬ бЇЁбЄ®¬:';
  {”®а¬ вл Є®¬ ­¤}
  command:array[1..11,1..2] of string = (
    ('?','? - ‚лў®¤ бЇа ўЄЁ ® Є®¬ ­¤ е'),
    ('CLS','CLS - ®зЁбвЁвм нЄа ­'),
    ('ADD ','ADD Index Value - ¤®Ў ўЁвм н«Ґ¬Ґ­в б® §­ зҐ­ЁҐ¬ Value ў Ї®§ЁжЁо Index'),
    ('DEL ','DEL Index - г¤ «Ёвм н«Ґ¬Ґ­в Index Ё§ бЇЁбЄ '),
    ('VAL ','VAL Index - ўлўҐбвЁ §­ зҐ­ЁҐ н«Ґ¬Ґ­в  б ­®¬Ґа®¬ Index'),
    ('POS ','POS Value - Ё­¤ҐЄб ЇҐаў®Ј® н«Ґ¬Ґ­в , ᮤҐа¦ йҐЈ® Value'),
    ('LOAD ','LOAD Name - § Јаг§Ёвм бЇЁб®Є Ё§ д ©«  б Ё¬Ґ­Ґ¬ Name'),
    ('SAVE ','SAVE Name - б®еа ­Ёвм бЇЁб®Є ў д ©« б Ё¬Ґ­Ґ¬ Name'),
    ('LIST','LIST - ўлўҐбвЁ н«Ґ¬Ґ­вл бЇЁбЄ  ­  нЄа ­'),
    ('EXIT','EXIT - ўл室 Ё§ Їа®Ја ¬¬л'),
    ('LST','LST - ўлўҐбвЁ н«Ґ¬Ґ­вл бЇЁбЄ  ў ®Ўа в­®¬ Ї®ап¤ЄҐ')
                                         );
function upstring(s:string):string;
{‚бЇ®¬®Ј вҐ«м­ п дг­ЄжЁп ЇаҐ®Ўа. бва®ЄЁ Є ўҐе­. ॣЁбваг}
var
  i: byte;
  res: string;
begin
  res:='';
  for i:=1 to length(s) do
    res:=res+upcase(s[i]);
  upstring:=res
end;{upstring}
{-----------------}
var
  coms: string; {‡­ зҐ­ЁҐ Є®¬ ­¤­®© бва®ЄЁ}
  com: string;  {Љ®¬ ­¤ }
  param1,param2: string;
  ind: byte;
  Vall: integer;
  code: integer;
  i: byte;
begin  {main}
  while true do {ЃҐбЄ®­Ґз­л© жЁЄ« ўў®¤  Є®¬ ­¤}
    begin
      writeln;
      write('‹Ё­Ґ©­л© бЇЁб®Є>');
      readln(coms);
      {“¤ «пҐ¬ ўҐ¤гйЁҐ Ё ўҐ¤®¬лҐ Їа®ЎҐ«л}
      while coms[1]=' ' do delete(coms,1,1);
      while coms[length(coms)]=' ' do delete(coms,length(coms),1);
      {€йҐ¬ Є®¬ ­¤л}
      if upstring(copy(coms,1,1))=command[1,1] then
        begin  {ўлў®¤ ⥪бв  бЇа ўЄЁ}
          writeln(HelpTitle);
          for i:=1 to 11 do
            writeln(command[i,2])
        end
      else
      if upstring(copy(coms,1,3))=command[2,1] then
        begin {ЋзЁбвЄ  нЄа ­ }
          clrscr;
        end
      else
      if upstring(copy(coms,1,4))=command[3,1] then
        begin {„®Ў ў«Ґ­ЁҐ н«Ґ¬Ґ­в }
          i:=4;                  {‘Є®«мЄ® ЎҐ§Їа®ЎҐ«м­ле бЁ¬ў®«®ў}
          while  (coms[i+1]<>' ')and(i<length(coms))do
            inc(i);
          if i=4 then writeln('Ћвбгвбвўгов Ї а ¬Ґвал ў Є®¬ ­¤Ґ ',command[3,1])
          else
            begin {…бвм Ї а ¬Ґвал}
              i:=i-4;
              param1:=copy(coms,5,i);
              val(param1,ind,code);
              if code<>0 then writeln('ЌҐўҐа­л© Ї а ¬Ґва ў Є®¬ ­¤Ґ ',command[3,1])
              else
                {ЏҐаўл© Ї а ¬Ґва - Їа ўЁ«м­л©}
                if ((4+i)=length(coms))or((4+i+1)=length(coms))then
                  writeln('ЌҐ¤®бв в®з­® Ї а ¬Ґва®ў ў Є®¬ ­¤Ґ ',command[3,1])
                else {…бвм ўв®а®© Ї а ¬Ґва}
                  begin
                    param2:=copy(coms,4+i+2,length(coms)-(4+i+1));
                    val(param2,vall,code);
                    if code<>0 then writeln('ЌҐўҐа­л© Ї а ¬Ґва ў Є®¬ ­¤Ґ ',command[3,1])
                    else  {‚бс ў Ї®ап¤ЄҐ}
                      begin
                        AddItem(Ind,Vall);
                        Writeln('ќ«Ґ¬Ґ­в гбЇҐи­® ¤®Ў ў«Ґ­')
                      end
                  end
            end
        end
      else
      if upstring(copy(coms,1,4))=command[4,1] then
        begin  {“¤ «Ёвм н«Ґ¬Ґ­в Ё§ бЇЁбЄ }
          i:=4;                  {‘Є®«мЄ® ЎҐ§Їа®ЎҐ«м­ле бЁ¬ў®«®ў}
          while  (coms[i+1]<>' ')and(i<length(coms))do
            inc(i);
          if i=4 then writeln('Ћвбгвбвўгов Ї а ¬Ґвал ў Є®¬ ­¤Ґ ',command[4,1])
          else
            begin {…бвм Ї а ¬Ґвал}
              param1:=copy(coms,5,length(coms)-4);
              val(param1,ind,code);
              if code<>0 then writeln('ЌҐўҐа­л© Ї а ¬Ґва ў Є®¬ ­¤Ґ ',command[4,1])
               else  {‚бс ў Ї®ап¤ЄҐ}
                 begin
                  if Head=NIL then
                    writeln('‘ЇЁб®Є ­Ґ бгйҐбвўгҐв')
                  else
                    begin
                       DeleteItem(Ind);
                      Writeln('ќ«Ґ¬Ґ­в гбЇҐи­® г¤ «с­')
                    end
                end
            end
        end
      else
      if upstring(copy(coms,1,4))=command[5,1] then
        begin  {‚뢥бвЁ §­ зҐ­ЁҐ н«Ґ¬Ґ­в  б ­®¬Ґа®¬ Index}
          i:=4;                  {‘Є®«мЄ® ЎҐ§Їа®ЎҐ«м­ле бЁ¬ў®«®ў}
          while  (coms[i+1]<>' ')and(i<length(coms))do
            inc(i);
          if i=4 then writeln('Ћвбгвбвўгов Ї а ¬Ґвал ў Є®¬ ­¤Ґ ',command[5,1])
          else
            begin {…бвм Ї а ¬Ґвал}
              param1:=copy(coms,5,length(coms)-4);
              val(param1,ind,code);
              if code<>0 then writeln('ЌҐўҐа­л© Ї а ¬Ґва ў Є®¬ ­¤Ґ ',command[5,1])
               else  {‚бс ў Ї®ап¤ЄҐ}
                 begin
                  if Head=NIL then
                    writeln('ЌҐв бЇЁбЄ ')
                  else
                     Writeln('ќ«Ґ¬Ґ­в[',ind,'] = ',GetValue(Ind))
                end
            end
        end
      else
      if upstring(copy(coms,1,4))=command[6,1] then
        begin  {‚뢥бвЁ Index ЇҐаў®Ј® н«Ґ¬Ґ­в , ᮤҐа¦ йҐЈ® Value}
          i:=4;                  {‘Є®«мЄ® ЎҐ§Їа®ЎҐ«м­ле бЁ¬ў®«®ў}
          while  (coms[i+1]<>' ')and(i<length(coms))do
            inc(i);
          if i=4 then writeln('Ћвбгвбвўгов Ї а ¬Ґвал ў Є®¬ ­¤Ґ ',command[6,1])
          else
            begin {…бвм Ї а ¬Ґвал}
              param2:=copy(coms,5,length(coms)-4);
              val(param2,vall,code);
              if code<>0 then writeln('ЌҐўҐа­л© Ї а ¬Ґва ў Є®¬ ­¤Ґ ',command[6,1])
               else  {‚бс ў Ї®ап¤ЄҐ}
                 begin
                  if Head=NIL then
                    writeln('ЌҐв бЇЁбЄ ')
                  else
                     Writeln('ЏҐаў®Ґ ўе®¦¤Ґ­ЁҐ §­ зҐ­Ёп ',vall,' ў н«Ґ¬Ґ­вҐ ь',GetIndex(Vall))
                end
            end
        end
      else
      if upstring(copy(coms,1,5))=command[7,1] then
        begin  {‡ Јаг§Ёвм бЇЁб®Є Ё§ д ©« }
          i:=5;                  {‘Є®«мЄ® ЎҐ§Їа®ЎҐ«м­ле бЁ¬ў®«®ў}
          while  (coms[i+1]<>' ')and(i<length(coms))do
            inc(i);
          if i=5 then writeln('Ћвбгвбвўгов Ї а ¬Ґвал ў Є®¬ ­¤Ґ ',command[7,1])
          else
            begin {…бвм Ї а ¬Ґвал}
              param1:=copy(coms,6,length(coms)-5);
              case LoadFromFile(param1) of
                0: writeln('‘ЇЁб®Є гбЇҐи­® § Ја㦥­');
                1: writeln('ЋиЁЎЄ  ¤®бвгЇ  Є д ©«г');
                2: writeln('‡ ¤ ­­л© д ©« ­Ґ пў«пҐвбп д ©«®¬ бЇЁбЄ ');
                3: writeln('ЌҐ еў в Ґв Ї ¬пвЁ ¤«п а §¬ҐйҐ­Ёп бЇЁбЄ ')
              end
            end
        end
      else
      if upstring(copy(coms,1,5))=command[8,1] then
        begin  {‘®еа ­Ёвм бЇЁб®Є ў д ©«Ґ}
          i:=5;                  {‘Є®«мЄ® ЎҐ§Їа®ЎҐ«м­ле бЁ¬ў®«®ў}
          while  (coms[i+1]<>' ')and(i<length(coms))do
            inc(i);
          if i=5 then writeln('Ћвбгвбвўгов Ї а ¬Ґвал ў Є®¬ ­¤Ґ ',command[8,1])
          else
            begin {…бвм Ї а ¬Ґвал}
              param1:=copy(coms,6,length(coms)-5);
              case SaveToFile(param1) of
                0: writeln('‘ЇЁб®Є гбЇҐи­® б®еа ­с­');
                1: writeln('ЋиЁЎЄ  ᮧ¤ ­Ёп д ©« ');
                2: writeln('‘ЇЁб®Є ­Ґ бгйҐбвўгҐв')
              end
            end
        end
      else
      if upstring(copy(coms,1,4))=command[9,1] then
        begin  {‚뢥бвЁ бЇЁб®Є ­  нЄа ­ ®в ­ з «  Є Є®­жг}
          if Head=NIL then
            writeln('‘ЇЁб®Є ­Ґ бгйҐбвўгҐв')
          else
            PrintList
        end
      else
      if upstring(copy(coms,1,4))=command[10,1] then
        begin  {‚л室}
          break
        end
      else
        if upstring(copy(coms,1,3))=command[11,1] then
          begin  {‚뢥бвЁ бЇЁб®Є ­  нЄа ­ ®в Є®­ж  Є ­ з «г}
            if Head=NIL then
              writeln('‘ЇЁб®Є ­Ґ бгйҐбвўгҐв')
            else
              PrintLst
          end
        else
          writeln('ЌҐўҐа­ п Є®¬ ­¤ ')
    end
end.