Дано число в двоичном виде. Разделить его на две составляющие: в первую войдут только четные разряды, во вторую только нечетные разряды. Их логически перемножить и результат умножить на 16. Нужно написать код на ассамблере

файл, правка, вид, вставка, формат, сервис, таблица, окно, справка.

program _1_2; uses crt; var  dlina, shirina, vysota: real; begin  clrscr;   textcolor(14);   writeln('вычисление объёма параллелепипеда.');   writeln('введите исходные данные: ');   write('длина (см) -> ');   readln(dlina);   write('ширина (см) -> ');   readln(shirina);   write('высота -> ');   readln(vysota);   writeln('объём: ',(dlina*shirina*vysota): 7: 2);   repeat  until keypressed; end.

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.

если первая дробь равна a/b, а вторая - c/d, то их сумма равна е = a/b + c/d = (a*d + c*b)/b*d (без последующего сокращения дроби е).

алгоритм:

1. ввести числа a,b,c,d.

2. рассчитать число е = (a*d + c*b)/b*d.

3. распечатать число е.