Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

А) 
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.