Решить:

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

ответ:

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

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.

объяснение:

чернила были красные и черные. весь текст писался чернилами черного цвета, а начало  каждого нового раздела, т.е. новой мысли выделяли красными чернилами, так появилось выражение "красная строка", которым мы и сейчас обозначаем новую строку в начале абзаца.

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.