Question

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

Answer 1

VAR
   n, n2, sum, pr: Integer;
BEGIN
   Read(n);
   sum := (n div 10)+(n mod 10);
   pr :=    (n div 10)*(n mod 10); 
   n2 :=  (n mod 10)*10 + (n div 10); 

   Writeln('Сумма цифр = ', sum);
   Writeln('Прозведение цифр = ', pr); 
   Writeln('Полученое число = ', n2); 
END.