Отгадайте чёрный ящик. вход: . 2. 31 26 260 345 6782 94513 519374 выход: 10 1101 1022 102200 110220 22033010 3302200111 200133110302

подсчитаем количество цифр на каждом входе/выходе, и заметим, что на выходе цифр всегда ровно вдвое больше, чем на входе. можно сделать предположение, что каждая цифра на входе шифруется комбинацией из двух цифр на выходе.

проверяем наше предположение:

2 -> 10 (первый вход). то же самое верно для   3-го и 4-го входов, и для последней цифры 6-го.

проверяя другие числа, убедимся, что предположение верное.

значит, чёрный ящик шифрует числа по схеме:

0 -> 00

1 -> 01

2 -> 10

3 -> 11

4 -> 02

5 -> 20

6 -> 22

7 -> 03

8 -> 30

9 -> 33

2)program nah;

  var s: string;

begin

s: = 'рэки,горы и ';     (присвоение значения)

writeln (s);                               (вывод)

delete (s, 5,6);                     (удаление из строки s начиная с 5-го символа 6) символа)

writeln(s);                           (вывод результата)

end. 

  решение будет выглядеть так

  рэки, горы и

рэки и  

прости что не решила  

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;