Выполните вычитание в двоичной системе СЧИСЛЕНИЯ:
101112 110012
Запишите ответ в двоичной системе счисления
Основание системы указывать не нужно.​

var a,b: integer;

is7: boolean;

begin

    readln(a);

    b: =0;

    is7: =false;

    while a < > 0 do

    begin

        b: =b+a mod 10;

        if a mod 10 = 7 then

            is7: =true;

        a: =a div 10;

    end;

    wrtieln('сумма цифр: ', b);

    write('цифра 7 ');

    if is7 then writeln('есть') else writeln('нет');

    readln;

end.

program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа:   '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.

1)10см=3,937дюма

dpi - точек на дюйм

3,937*1000=3937 - точек

3937*3937=15499969 точек

каждая точка кодируется 2-мя байтами 

всего  30999938 байт

1 мегабайт = 1024*1024=1048576

на картинку  29,56 мегабайта

2) 256 1 байт

200*100=20000 пикселей

1 килобайт = 1024 байта

картинка займет 20000/1024=19,5 килобайта

ps а вообще, каждое нужно писать отдельно

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.