запишите на языке паскаль программу которая для произвольного натурального двузначного числа определяет
a) сумму и произведение его цифр
б) число,образованное перестановкой цифр исходного числа
a) сумму и произведение его цифр
б) число,образованное перестановкой цифр исходного числа
More Questions From This User See All
Answers & Comments
Verified answer
А)Program sum_pr;
Var
sum,pr,a1,a2,a : integer;
BEGIN
read(a);
a1:=a div 10;
a2:=a mod 10;
sum:=a1+a2;
pr:=a1*a2;
write(sum,pr);
END.
б)
Program per;
Var
per,a1,a2,a : integer;
BEGIN
read(a);
a1:=a div 10;
a2:=a mod 10;
per:=a2*10+a1;
write(per);
END.