Совмещение чисел.

@makentosh · Регистрация: 21.02.2012

Author24 — интернет-сервис помощи студентам

Ребят помогите решить задачку. Даны два натуральных числа одинаковой разрядности. слить их, образовав третье, так, чтобы на чётных местах десятичного представления стояли бы десятичные цифры второго
Пример числа 12 и 34 новое число - 1324
(Решить на основе процедур и функций)

valeriikozlov · 05.03.2012, 21:50

Pascal

uses crt;
var
 a, b, s:integer;
function f (a, b : integer) : integer; 
var x, res: integer; 
begin
  x:=1;
  res:=0;
  while(a>0) do
  begin   
  res:=res + (b mod 10)*x; 
  x:=x*10;
  res:=res + (a mod 10)*x;
  x:=x*10;
  a:=a div 10;
  b:=b div 10;    
  end;
  f:=res;
end; 
 begin
 a:=12;
 b:=34;
 s:=f(a, b);
 write(s);
 end.

@makentosh · 05.03.2012, 22:07 **[ТС]**

Спасибо большое.

@makentosh 0 / 0 / 0 Регистрация: 21.02.2012 Сообщений: 16
		1
	Совмещение чисел. 05.03.2012, 20:32. Показов 1252. Ответов 2 Метки нет (Все метки) Ребят помогите решить задачку. Даны два натуральных числа одинаковой разрядности. слить их, образовав третье, так, чтобы на чётных местах десятичного представления стояли бы десятичные цифры второго Пример числа 12 и 34 новое число - 1324 (Решить на основе процедур и функций) 0

@makentosh 0 / 0 / 0 Регистрация: 21.02.2012 Сообщений: 16
	05.03.2012, 22:07 [ТС]	3
	Спасибо большое. 0

Совмещение чисел.

Решение