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