Вычислите сумму чисел x и y, при x = 1d16, y = 728. результат представьте в двоичной системе счисления.

Во-первых  писать надо со скобками х=1d(16), если не знаете про вот такое  x=1d(16)  =  29(10) y=72(8)  = 58(10) x+y=87(10)=1010111(2) ответ  1010111

Var x, i, n, s: longint;                                       //объявление переменных   begin s : = 0;                                                 //изначально сумма равна 0   read(x, n);                                                     //ввод x,n   for i : = 1 to n do s : = s + trunc(power(x, i)); //n раз                                                                     //прибавляем к сумме x в i     //степени(power)   write(s);                                                     //выводим сумму end. 

Var  a: array of array of integer; jmin: array of integer; n,m,i,j,k,min: integer; begin randomize; write('n = '); readln(n); write('m = '); readln(m); writeln('исходный массив: '); setlength(a,n); for i: =0 to n-1 do setlength(a[i],m); setlength(jmin,m); for i: =0 to n-1 do   begin   for j: =0 to m-1 do   begin     a[i,j]: =random(11);     write(a[i,j]: 4);   end;   writeln;   end; min: =a[0,0]; jmin[0]: =1; for i: =0 to n-1 do   for j: =0 to m-1 do   if a[i,j]< min then      begin      min: =a[i,j];     for k: =0 to m-1 do jmin[k]: =0;     jmin[j]: =1;     end     else if a[i,j]=min then jmin[j]: =1; writeln('min = ',min); for k: =0 to m-1 do write(jmin[k],' '); writeln; for k: =m-1 downto 0 do   if jmin[k]=1 then   begin   for i: =0 to n-1 do setlength(a[i],length(a[i])+1);   for i: =0 to n-1 do     for j: =length(a[i])-1 downto k+2 do a[i,j]: =a[i,j-1];   for i: =0 to n-1 do a[i,k+1]: =0;     end; for i: =0 to n-1 do   begin   for j: =0 to length(a[i])-1 do write(a[i,j]: 4);   writeln;   end; end. пример: n = 4 m = 5 исходный массив:     7   3   7   6   0     5   0   8   0   9     2   1   9   6   10     2   0   3   6   0 min = 0 0 1 0 1 1      7   3   0   7   6   0   0   0     5   0   0   8   0   0   9   0     2   1   0   9   6   0   10   0     2   0   0   3   6   0   0   0