Сформировать число из двух заданных чередованием разрядов

Формулировка. Даны два натуральных числа одинаковой десятичной разрядности. Сформировать из них третье число так, чтобы цифры первого числа стояли на нечетных местах третьего, а цифры второго – на четных. При этом порядки следования цифр сохраняются. Например, при вводе 1234 и 5678 программа должна выдать ответ 15263748  (для наглядности разряды обоих чисел выделены разными цветами).

Решение. Так как у чисел (обозначим их a и b) одинаковая десятичная разрядность, крайняя справа цифра у третьего числа (c, которое поначалу должно быть равно 0) всегда будет на четном месте, так как при его формировании мы работаем с длинами a и b как с числами одной четности, сумма которых всегда четна, и длина c как раз и есть позиция крайней справа цифры.

Это значит, что формирование c нужно в любом случае начинать с последнего разряда b. При этом каждый взятый из aили b разряд мы должны сместить на необходимую позицию влево, чтобы добавлять разряды c, используя операцию сложения. Мы сделаем это с помощью вспомогательной переменной z, которая перед входом в цикл будет равна 1. В цикле же она будет умножаться на последний добытый разряд b (при этом выражение z * b mod 10 нужно прибавить к c), затем умножить z на 10 и проделать то же самое с последним разрядом a и снова умножить z на 10. Кстати, при этом нужно не забыть своевременно отбросить уже рассмотренные разряды чисел.

Так как разрядность чисел неизвестна, нам нужен цикл с предусловием. В силу одинаковой десятичной разрядности a и bмы можем сделать условие по обнулению любого из них, так как второе при этом также обнулится. Возьмем условие a < > 0.

Таким будет основной цикл:

while a <> 0 do begin

c := c + z * (b mod 10);

z := z * 10;

b := b div 10;

c := c + z * (a mod 10);

z := z * 10;

a := a div 10

end;

В итоге конечное число c будет сформировано в таком виде (все направления справа налево): первая цифра b, первая цифра a, вторая цифра b, вторая цифра a и так далее до самых последних разрядов слева. Кстати, скобки в двух операторах нужны для правильного понимания компилятором приоритета выполняемых арифметических операций. Без нихz умножится на соответствующее число, и остаток от деления именно этого числа прибавится к c, что неправильно.

Алгоритм на естественном языке:

1)      Ввод a и b;

2)      Обнуление переменной c;

3)      Присвоение переменной z числа 1;

4)      Запуск цикла с предусловием a < > 0. В цикле:

1. Прибавляем последний разряд b в текущий разряд c, определяемый с помощью множителя z;
2. Умножаем z на 10;
3. Избавляемся от последнего разряда в b;
4. Прибавляем последний разряд a в текущий разряд c с помощью множителя z;
5. Умножаем z на 10;
6. Избавляемся от последнего разряда в a;

5)      Вывод c.

Код:

1. program CombineTwoNums;
2. var
3. c, z: integer;
4. a, b: word;
5. begin
6. readln(a, b);
7. c := 0;
8. z := 1;
9. while a <> 0 do begin
10. c := c + z * (b mod 10);
11. z := z * 10;
12. b := b div 10;
13. c := c + z * (a mod 10);
14. z := z * 10;
15. a := a div 10
16. end;
17. writeln(c)
18. end.