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

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

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

1
2) переставлять числа нужно в каком порядке?

Ответы и объяснения

2013-11-02T10:30:11+00:00
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.