очень надо очень надо Сложите шестнадцатеричное число А1 и восьмеричное число 10. ответ представьте в виде двоичного числа.​

папирусы хранили в виде свитков, сворачивая длинную папирусную ленту, склеенную из отдельных листов, в трубку. 

var x,n: integer;

begin

  read(x,n);

  x: =x*n;

  writeln(x);

end.

трасирвка кажется f7

ну например

в первом столбике пишешь  числа попорядку

во втором столбике пишешь "=a1*a1" и протягиваешь вниз на всю таблицу

в третем пишешь "=a1*a2" и протягиваешь вниз на всю таблицу

в первом столбике у нас получается число

во втором  квадрат числа

в третем - куб числа

program a1;

  uses crt;

  var a: array[1..31] of longint; k,i: integer;

begin

  clrscr;

  for i: =1 to 31 do begin

  write('введите температуру ',i,' числа: ');

  readln(a[i]);  

  if a[i]< 0 then k: =k+1;

  end;

writeln('  количество дней в которые были заморозки = ', k);

readln

end. 

p.s. если паскаль abc, то выделенное писать не обязательно