1. Деректердің типі туралы қандай ақпарат алдың? 2. Программалау барысында сандық деректерді емес, айнымалыларды қолдану алгоритмнің қай қасиетімен байланысты деп ойлайсың?
3. 12 және 58 бүтін сандарынан 1258 санын құрастырудың ауызша алгоритмін қалай сипаттаған болар едің?
float(input()) командасын қандай мақсатта қолданады

Const
  Rn : String[36] = '0123456789';

Function DecToN(a : Longint; Raz : Byte) : String;
Begin
  If a>Raz-1 then DecToN:=DecToN(a div Raz,Raz)+Rn[(a mod Raz)+1]
  else DecToN:=Rn[a+1];
end;

Function NToDec(a : String; Raz : Byte) : Longint;
Begin
  If Length(a)>0 then NToDec:=Pos(a[Length(a)],Rn)-1+Raz*NToDec(Copy(a,1,Length(a)-1),Raz)
  else NToDec:=0;
end;

Var a,b : String;
Begin
  a:='1011'; b:='110';
  Writeln('a = ',a,' (bin) = ',NToDec(a,2),' (dec)');
  Writeln('b = ',b,' (bin) = ',NToDec(b,2),' (dec)');
  Writeln(a+'+'+b+' = ',DecToN(NToDec(a,2)+NToDec(b,2),2),' (bin)  ',NToDec(a,2)+NToDec(b,2),' (dec)');
  Writeln(a+'-'+b+' = ',DecToN(NToDec(a,2)-NToDec(b,2),2),' (bin)  ',NToDec(a,2)-NToDec(b,2),' (dec)');
  Writeln(a+'*'+b+' = ',DecToN(NToDec(a,2)*NToDec(b,2),2),' (bin)  ',NToDec(a,2)*NToDec(b,2),' (dec)');
end.

ответ: 32

(1+2+2+2+2+2)*2+2
(1+2+2+2+2)*2+2+2+2
(1+2+2+2)*2+2+2+2+2+2
(1+2+2)*2+2+2+2+2+2+2+2
((1+2+2)*2+2)*2
((1+2+2)*2)*2+2+2
(1+2)*2+2+2+2+2+2+2+2+2+2
((1+2)*2+2+2+2)*2
((1+2)*2+2+2)*2+2+2
((1+2)*2+2)*2+2+2+2+2
((1+2)*2)*2+2+2+2+2+2+2
(((1+2)*2)*2)*2
(1)*2+2+2+2+2+2+2+2+2+2+2+2
((1)*2+2+2+2+2+2)*2
((1)*2+2+2+2+2)*2+2+2
((1)*2+2+2+2)*2+2+2+2+2
((1)*2+2+2)*2+2+2+2+2+2+2
(((1)*2+2+2)*2)*2
((1)*2+2)*2+2+2+2+2+2+2+2+2
(((1)*2+2)*2+2+2)*2
(((1)*2+2)*2+2)*2+2+2
(((1)*2+2)*2)*2+2+2+2+2
((1)*2)*2+2+2+2+2+2+2+2+2+2+2
(((1)*2)*2+2+2+2+2)*2
(((1)*2)*2+2+2+2)*2+2+2
(((1)*2)*2+2+2)*2+2+2+2+2
(((1)*2)*2+2)*2+2+2+2+2+2+2
1)*2)*2+2)*2)*2
(((1)*2)*2)*2+2+2+2+2+2+2+2+2
1)*2)*2)*2+2+2)*2
1)*2)*2)*2+2)*2+2+2
1)*2)*2)*2)*2+2+2+2+2

Var N : Integer;

Procedure GoGo(a : Integer; s : String);
Begin
  If a<=24 then
    If a=24 then
    Begin
      Inc(N);
      Writeln(s);
    end
      else
      Begin
        GoGo(a+2,s+'+2');
        GoGo(a*2,'('+s+')*2');
      end;
end;

Begin
  N:=0;
  GoGo(1,'1');
  Writeln('N = ',N);
end.