Question

Знайти суму і добуток цифр двозначного числа, яке вводить користувач. В программе Паскаль

Answer 1

var

 x, n, n1: integer;

begin

 Writeln('Введите число: ');

 Read(x);

 if (x > 9) and (x < 100) then

 begin

   n := (x div 10) + (x mod 10);

   n1 := (x div 10) * (x mod 10);

   Writeln('Sum:= ', n, ' Proizved:= ', n1);

 end;

end.