Умножение в двоичной системе 1) 111*10= 2)111*11= 3) 1101*101= 4) 1101*1000=

1) 111*10=1110.0000 2)111*11=10101.0000 3) 1101*101=1000001.0000 4) 1101*1000= 1101000.0000p.s могу ошибаться!

ответ:

program test1;

uses math;

var

  a, b, c, anglea, angleb, anglec: real;

begin

  write ('сторона а: ');

  readln(a);

  write ('сторона b: ');

  readln(b);

  write ('сторона c: ');

  readln(c);

  anglea : = arccos ((b * b + c * c - a * a) / (2 * b * c)) * 180 / pi;

  angleb : = arccos ((a * a + c * c - b * b) / (2 * a * c)) * 180 / pi;

  anglec : = 180 - (anglea + angleb);

  writeln ('угол а = ', anglea : 5 : 1);

  writeln ('угол b = ', angleb : 5 : 1);

  writeln ('угол c = ', anglec : 5 : 1);

  readln;

end.

объяснение:

расчетные формулы из теоремы косинусов.

* 180 / pi - в конце формул для перевода радиан в градусы, где pi = 3,14 константа должна объявляться в math, если нет напишите сами.

третий угол рассчитывается исходя из соображения, что сумма углов треугольника равна 180 градусов.

Суть в том, что переводишь число в строковый формат и далее работаешь с ним как с одномерным массивом (чем и является по сути строка). во внешнем цикле выбирается по порядку от 1 до (длина строки -1, т.е. до предпоследнего) цифра числа. во внутреннем цикле эта цифра сравнивается с каждой последующей по-порядку до тех пор пока не найдется одинаковая. если нашлась, то выход из цикла. из внешнего цикла так же предусмотрен выход если нашлась пара равных цифр. program z1; var n: int64; l: integer; s: string; i, j: byte; x: boolean; begin     writeln ('введите число');     readln (n);     str(n,s);     l: =length(s);     x: =false;       for   i: =1 to l-1 do begin         for   j: =i+1 to l do begin           if s[i]=s[j] then begin x: =true; break; end;         end;       if x=true then break;       end;     writeln (x);   end.