Решить:

дано трехзначное натуральное число, требуется вычислить сумму его цифр.

Я уже писал такие программы...

program S9;

VAR H,S,D,G,E,J,L,N,Z,F:INTEGER;

BEGIN

WRITELN('ВВЕДИТЕ ЛЮБОЕ ТРЕХЗНАЧНОЕ ЧИСЛО');

READ (H);

D:=H DIV 100;

G:=H mod 10;

E:=H div 10;

J:=E mod 10;

S:=G*100;

L:=J*10;

N:=S+L+D;

F:=D+G+J;

Writeln('Инверсия данного числа будет=',N);

If (N>H) then Z:=N-H;

If (N<H) then Z:=H-N;

Writeln('Разница между числом и его инверсией будет=',Z);

writeln('Сумма всех цифр из данного числа будет = ',F);

END.

Объяснение: