Question

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

1) сумму и произведение его цифр;

2) число, образованное перестановкой цифр исходного числа.

Answer 1

var n,sum,pr,a:integer;
begin
readln(n);
sum:=0
pr:=1;
while n<>0 do
begin
a:=n mod 10;
sum:=sum+a;
pr:=pr*a;
n:=n div 10;
end;
writeln(sum,' ',pr);
end.