uses
Math;
var
n, r, i, d: Integer;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
r := 0;
d := 100;
if (n >= 100) and (n <= 999) then begin
for i := 1 to 3 do begin
r := r + (n mod 10) * d;
n := n div 10;
d := d div 10;
end;
WriteLn ('Результат = ', r);
end else
WriteLn ('Это не трехзначное число');
ReadLn;
end.
Объяснение:
для 3 цифр в цикле выделяются единицы, десятки, сотни.
умножается на d: в цикле меняется 100, 10, 1
результат суммируется в r
var a, b, sum : integer;
begin
readln(a);
while a > 0 do
begin
b := a mod 10;
sum := sum + b;
a := a div 10;
end;
writeln(sum);
end.