Запишите ** языке Паскаль программу, которая для произвольного двухзначного числа...

Question

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

Answer 1

var a,b,a1,a2:integer;
begin
readln(a);
b:=abs(a);
a1:=b div 10;
a2:=b mod 10;
writeln('S = ',a1+a2,' P = ',a1*a2);
b:=a2*10+a1;
if a>0 then writeln(b) else writeln(-b);
end.

Пример:
25
S = 7 P = 10
52