Запишите на языке паскаль программу которая для произвольного натурального двузначного числа определяет a) сумму и произведение его цифр б) число,образованное перестановкой цифр исходного числа
// Образование нового числа из перестановки цифр newNumber := b * 10 + a; writeln′Число,образованноеперестановкойцифр:′,newNumber'Число, образованное перестановкой цифр:', newNumber′Число,образованноеперестановкойцифр:′,newNumber; end.
program DvuznachnoeChislo;
var
n, a, b, sum, mul, newNumber: integer;
begin
// Ввод двузначного числа
writeln′Введитедвузначноечисло:′'Введите двузначное число:'′Введитедвузначноечисло:′;
readlnnnn;
// Определение суммы и произведения цифр
a := n div 10;
b := n mod 10;
sum := a + b;
mul := a * b;
writeln′Суммацифр:′,sum'Сумма цифр:', sum′Суммацифр:′,sum;
writeln′Произведениецифр:′,mul'Произведение цифр:', mul′Произведениецифр:′,mul;
// Образование нового числа из перестановки цифр
newNumber := b * 10 + a;
writeln′Число,образованноеперестановкойцифр:′,newNumber'Число, образованное перестановкой цифр:', newNumber′Число,образованноеперестановкойцифр:′,newNumber;
end.