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

Question

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

Answer 1

Var a,b,c: integer;
Begin
write('Ведите двузначное число: ');
readln (a);
b:=a div 10;
c:=a mod 10;
writeln('Сумма цифр равна: ',c+b);
writeln('Перевернутое число: ',c,b)
End.