Решить:

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

ответ:

я уже писал такие

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

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

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

end.

объяснение:

пролететь - расстояние

проехать на лифте - номер этажа 

спрыгнуть - высота, скорость

поесть - количество

повернуть - время или направление

мы заметили закономерность- с каждым днем кол-во ряски увеличивается в 2 раза.30 июня ряска покрыла всю поверхность озера ===> половина озера была покрыта ряской 29 июня.