Question

Запишите на языке Паскаль программу, которая для произвольного двузначного числа определяет: а)сумму и произведение его цифр; б)число, образованное перестановкой цифр исходного числа.

Answer 1

Var n:integer;
Begin
readln(n);
if (n>9) and (n<100) then 
 begin 
  writeln('Сумма = ',((n mod 10)+(n div 10) ),' Произведение = ',((n mod 10)*(n div 10) ));   writeln('Если поменять местами цифры, то получится ',n mod 10,n div 10);  
 end 
 else
 writeln('Error!');
readln
End.