Решить:

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

ответ:

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

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.

объяснение:

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.