Скиньте, , скрин графика функции y(t)=0.00231277777*e^(0, 2716*(t-13.1))+0.00000982777*e^(-1.9939*(t-13.1))+0.00232222222*cos(t-13.1)+0.00865275*sin(t-13.1) построенного в maple

Maple15. Картинки во вложениях.

Var A:Array[1..100] of Word; N,Max_S,i,I_max:Byte; Function Sum_of_figures(p:Word):Byte; var d:Word; S,j:Byte; begin d:=10000; S:=0; For j:=1 to 5 do begin S:=S+(p div d); p:=p mod d; d:=d div 10; end; Sum_of_figures:=S; end; Begin Randomize; Write('N= '); Readln(N); Writeln; Writeln('Initial array:'); For i:=1 to N do begin A[i]:=Random(65535); Write(A[i]:8); end; Writeln; Writeln; Writeln('Sums of figures:'); Max_S:=0; For i:=1 to N do begin Write(Sum_of_figures(A[i]):8); If Sum_of_figures(A[i])>Max_S then begin Max_S:=Sum_of_figures(A[i]); I_max:=i; end; end; Writeln; Writeln; Writeln('Maximal sum of figures (',Max_S,') has the element N',I_max,' equal to ',A[I_max]); Readln; End.

189=10111101 в 2си
405=110010101в2си
241=11110001в2си
189  2                            405  2
    1  94  2                          1  202 2
          0  47  2                            0  101  2
                1  23  2                              1  50  2
                      1  11  2                              0  25  2
                            1  5  2                                1  12  2
                                1  2  2                                  0  6  2
                                    0  1                                      0  3  2
                                                                                    1  1
241  2
    1  120  2
            0  60  2
                  0  30  2
                        0  15  2
                              1  7  2
                                  1  3  2
                                      1  1