Question

Дано трехзначное целое число. Найти сумму его цифр и выдать это число в "перевернутом" виде ( было 123, выдать 321) Примечание. n1 - 1-я цифра исходного числа, n2 - вторая, n3- третья (решение задачи в паскале)

Answer 1

var

 x, n1, n2, n3: integer;

begin

 Print('Введите трёхзначное целое число:');

 read(x);

 n1 := x div 100;

 n2 := (x div 10) mod 10;

 n3 := x mod 10;

 Println('Сумма цифр равна:', n1 + n2 + n3);

 Println('Перевёрнутое число:', n3 * 100 + n2 * 10 + n1);

end.