Задание 4 Даны пары чисел в двоичной системе счисления:
а) 101012 и 110112;
б) 100012 и 101112;
Произведите операцию сложения для предложенных пар чисел.

Задание 5
Дано отрицательное число в десятичной системе счисления:
–3810. Представьте данное число в двоичной системе счисления.

(Интернетурок 26 неделя 8 класс)

program aaa;   var d, n : integer; begin  write ('введите число n-');   readln (n);   writeln('делители числа: ');   for d : =1 to n do  if n mod d = 0 then writeln (d)end.

min і max нужно присвоить а[1].

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.

смотря какая передача и каких данных, много чего придумать можно, мне кажется) телефон, радио, модем,рация. или просто- передатчик.