Решить по информатике точнее написать программу!

program olimp4(input);   uses crt;   var x,y: array [1..100] of integer;   a,n,m,i,j,k,max,sum,msum: integer;   begin  clrscr;   assign(input,'input.txt'); reset(input);   randomize;   { данных из файла}  readln(n);   for i: =1 to n do read(x[i]);   readln;   readln(m);   for j: =1 to m do read(y[j]);   for k: =1 to 10000 do begin  sum: =0; i: =1; j: =1;   {пока сумма не отрицательна и кучки не закончились}  while (sum> =0) and (i< =n) and (j< =m) do  begin  {случайное число 0,1}  a: =random(2);   {если 0, то выбор из первой кучки, если 1, - то из второй}  if (a=0) then begin  {подсчет суммы}  sum: =sum+x[i];   i: =i+1;   end  else begin  {подсчет суммы}  sum: =sum+y[j];   j: =j+1;   end;   {максимальная сумма}  if sum> msum then msum: =sum;   end;   {закончилась вторая кучка, продолжаем брать из первой}  if i< =n then begin  while i< =n do begin  {подсчет суммы}  sum: =sum+x[i];   {если сумма отрицательна, то выход из цикла}  if sum< 0 then i: =n+2;   {максимальная сумма}  if sum> msum then msum: =sum;   inc(i);   end;

program olimp4(input); uses crt; var x,y: array [1..100] of integer; a,n,m,i,j,k,max,sum,msum: integer; begin clrscr; assign(input,'input.txt'); reset(input); randomize; { данных из файла} readln(n); for i: =1 to n do read(x[i]); readln; readln(m); for j: =1 to m do read(y[j]); for k: =1 to 10000 do begin sum: =0; i: =1; j: =1; {пока сумма не отрицательна и кучки не закончились} while (sum> =0) and (i< =n) and (j< =m) do begin {случайное число 0,1} a: =random(2); {если 0, то выбор из первой кучки, если 1, - то из второй} if (a=0) then begin {подсчет суммы} sum: =sum+x[i]; i: =i+1; end else begin {подсчет суммы} sum: =sum+y[j]; j: =j+1; end; {максимальная сумма} if sum> msum then msum: =sum; end; {закончилась вторая кучка, продолжаем брать из первой} if i< =n then begin while i< =n do begin {подсчет суммы} sum: =sum+x[i]; {если сумма отрицательна, то выход из цикла} if sum< 0 then i: =n+2; {максимальная сумма} if sum> msum then msum: =sum; inc(i); end;

Вдвоичной системе: 1243(10)=2^10+2^7+2^6+2^4+2^3+2^1+1 = 1024+128+64+16+8+2+1 = 1243(10) =10011011011(2) в восьмиричной системе:   разбиваете двоичное представление на группы по 3 бита справа налево 011   = 3 011   = 3 011   = 3 10   = 2 тогда в восьмиричной системе: 2333(8) = 2*8^3+3*8^2+3*8^1+3 = 1024+192+24+3=1243(10) в шестнадцатиричной системе:   разбиваете двоичное представление на группы по 4 бита справа налево 1011 = b = 11(10) 1101 = d(16) = 13(10) 100   = 4 тогда в шестнадцатиричной системе 4db(16) = 4*16^2+13*16^1+11 =1024+208+11=1243(10)

#include < cstdlib> #include < iostream> #include < cmath> using namespace std; int main(int argc, char** argv)   {     float a,b,c,mx,mn;     cout< < " длины сторон квадратов - через пробел: "< < endl;     cout< < " a "< < " b "< < " c "< < endl;     cin> > a> > b> > c;     mx=max(max(a,b),c);   mn=min(min(a,b),c);     cout< < "максимальная разность площадей = "       < < mx*mx-mn*mn< < endl;       system("pause");   return(0); }