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

Question

Информатика

Ирланта

21 октября, 13:05

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

+5

Ответы (1)

Знаете ответ на вопрос?

Елладий · 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.