Question

1) найти сумму цифр 3-х значного числа.
2) дано 2-х значное число, нужно его развернуть и сложить результат с исходным числом (пример: число 82. 82+28=110)
стелайте пожалуйста такой таблицей в столбик со стрелочками

Answer 1

var 
N: word;  
t1, t2, t3: byte; 

begin  
write('Введите трехзначное число: '); 
readln(N);  
t3 := N mod 10;  
N := N div 10;   
t2 := N mod 10;  
t1 := N div 10;  
writeln('Сумма цифр: ', t1 + t2 + t3);
end.

===============================
var
n,y:integer;

begin  
readln(n); 
y:=(n mod 10)*10 + n div 10; 
writeln(n.ToString+'+'+y.ToString+'='+(n+y))
end.