Запишите на языке Паскаль программу, которая для произвольного двухзначного числа определяет :
а) сумму и произведение его цифр;
б)число, образованное перестановкой цифр исходного числа
а) сумму и произведение его цифр;
б)число, образованное перестановкой цифр исходного числа
More Questions From This User See All
Answers & Comments
Verified answer
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