Question

Вводится четырёхзначное число (xysz). Вывести сумму xy + sz. Начальные данные необходимо ввести с клавиатуры.

Answer 1

var

   n, a, b, c, d: integer;

begin

   readln(n);

   a := n div 1000;

   b := (n div 100) mod 10;

   c := (n div 10) mod 10;

   d := n mod 10;

   writeln('ab+cd=',a*b,'+',c*d,'=', a*b+c*d);

readln;

end.