Решить на паскале. даны два натуральных числа m и n. (m, n ≤ 9999 проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n.

Var   a, b: integer;   x, y: string; begin   readln(a);   str(a, x);   readln(a);   str(a, y);       for b : = 1 to length(y) do     if (pos(y[b], x) > 0) then     begin       writeln( 'есть! ');       exit;     end;   writeln( 'нет! '); end.

// pascalabc.net 3.0, сборка 1076 const   nn=40; { максимально возможное количество учеников } var   r: array[1..nn] of byte;   i,n: byte; begin   write('количество учеников в классе: '); read(n);   writeln('вводите через пробел или enter рост');   for i: =1 to n do read(r[i]);   { собственно анализ введенных данных }   i: =1;   while i< n do       if r[i]< =r[i+1] then break       else inc(i);   if i=n then writeln('порядок убывания роста соблюдается')   else writeln('порядок убывания роста не соблюдается') end.

сначала переводим числа 6 и 4 в 2-ную систему. для этого делим всё время на 2 с остатком:

6 / 2 = 3 (остаток 0)

3 / 2 = 1 (остаток 1)

выписываем последний результат деления (1) и все остатки, начиная с конца:

1 1 0

таким образом:

аналогично:

умножаем: 110 х 100 = 11000

тут действует такое же правило, что и для обычных десятичных чисел: чтобы умножить на 10, 100, 1000, 10000 и т.д., достаточно просто дописать справа столько нулей, сколько их есть в этом множителе.   а вобще умножение двоичных чисел выполняется точно так же, как и десятичных - если нужно, то в столбик. двоичную "таблицу умножения" легко выучить наизусть:

0 х 0 = 0

0 х 1 = 0

1 х 0 = 0

1 х 1 = 1

когда при умножении в столбик мы складываем промежуточные результаты, правила тоже простые:

0 + 0 = 0

0 + 1 = 1

1 + 0 = 0

1 + 1 = 10

(смотри пример умножения на прикреплённом рисунке)