Выполнить вычитание. а) 100111001(2)-110110(2); б) 1111001110(2)-111011010(2); в) 1101111011, 01(2)-101000010, 0111(2); г) 2025, 2(8)-131, 2(8); д) 2d8, 4(16)-a3, b(16)

100111001(2)-110110(2) =  100000011

1111001110(2)-111011010(2) =  111110100

1101111011,01(2)-101000010,0111(2) =  1000111000.1101

2025,2(8)-131,2(8) =  1674

2d8,4(16)-a3,b(16) =  234.9

Разъяснения разместил в код программы в виде комментариев //объявление переменных //n - количество чисел //p - произведение найденных чисел //i - переменная для организации цикла var   n, p, i: integer; begin   //переменная p = 1,   //так как в процессе работы программы в ней   //накапливается произведение найденных чисел   p : = 1;   write('введите количество чисел ');   //в n - количество вводимых чисел   readln(n);   // цикл со счетчиком в котором вводим n чисел,   for i : = 1 to n do       // проверяем очередное значение i на кратность 3       // и выясняем, заканчивается ли это число на 1.       // для этого используем целочисленное деление.       // mod - остаток от деления       // если i mod 3 = 0, значит i кратно 3       // если i mod 10 = 1, значит i оканчивается на 1             if (i mod 3 = 0) and (i mod 10 = 1) then           p : = p * i; //умножим p на найденное число   //вывод произведения найденных чисел   writeln('искомое произведение ', p); end. тестовое решение: введите количество чисел 81 искомое произведение 86751

Program dates; var date : string; dd, mm, yy : string; d, m, y : integer; function strmonth(dt : integer) : string; var res : string; begin res: =''; case dt of 1 : res: =' января '; 2 : res: = ' февраля '; 3 : res: = ' марта '; 4 : res: = ' апреля '; 5 : res: = ' мая '; 6 : res: = ' июня '; 7 : res: = ' июля '; 8 : res: = ' августа '; 9 : res: = ' сентября '; 10 : res: = ' октября '; 11 : res: = ' ноября '; 12 : res: = ' декабря '; end; strmonth : = res; end; begin write('введите дату: '); readln(date); dd: =copy(date, 1, 2); mm: =copy(date, 4, 2); yy: =copy(date, 7, 4); val(dd, d); val(mm, m); val(yy, y); writeln('сегодня ', d, strmonth(m), y, ' года'); end.