Дано четырехзначное число. Найти сумму и произведение второй и третьей цифр заданного...

Question

Дано четырехзначное число. Найти сумму и произведение второй и третьей цифр заданного числа.

программа PascalABC

Answer 1

// PascalABC.NET (версия 3.2, сборка 1363)

var
  n, a, b: integer;
begin
  n := ReadInteger();
  a := n mod 1000 div 100;
  b := n mod 100 div 10;
  writeln('Сумма: ', a + b);
  writeln('Произведение: ', a * b);
end.