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

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

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

Var
a,sum,pr,a2:integer;
begin
writeln(Введите число);
readln(a);
sum:=(a div 10) + (a mod 10);
pr:=(a div 10) * (a mod 10);
a2:=(a div 10) + ((a mod 10)*10);
writeln(сумма ,sum, произведение ,pr, число c перестановкой ,a2);
end.