А= 10001,01 в=001011,010 в двоичной системе. выполните сложение и вычитание с этими числами а-в, а+в

А-в = 110 а+в = 11100,1

//pascal abc.net v3.1 сборка 1172 //ввод файла в текстовом редакторе var   f: text;   s: string;   a: integer; begin   writeln('first file: ');   assign(f,'text.txt');   reset(f);   while not eof(f) do   begin     read(f,a);     write(a: 4);     if (a> 8) or (a< 6) then   a: =sqr(a);     s: =s+a+' ';     end;   close(f);   writeln;   writeln('final file: ');   write(s);   assign(f,'text.txt');   rewrite(f);   write(f,s);   close(f); end. пример работы программы: first file:     1   2   3   4   5   6   7   8 final file: 1 4 9 16 25 6 7 8  //ввод файла   программе var   f: text;   s,s1: string;   a,i: integer; begin   assign(f,'text.txt');   rewrite(f);   for i: =1 to 10 do   begin   read(a);   write(f,a);     s1: =s1+inttostr(a)+' ';   if (a> 8) or (a< 6) then a: =sqr(a);   s: =s+inttostr(a)+' ';   end;   close(f);   writeln('first file: ');   writeln(s1);   writeln('final file: ');   write(s);   assign(f,'text.txt');   rewrite(f);   write(f,s);   close(f); end. пример ввода: 1 2 3 4 5 6 7 8 9 10 пример вывода: first file: 1 2 3 4 5 6 7 8 9 10 final file: 1 4 9 16 25 6 7 8 81 100