Какой смысл имеет результат s этого алгоритма, если x=125 a: = x div 100 b: = x mod 100 div 10 c: = x mod 10 s: = a+b+c нужен именно смысл, решение у меня у самого есть. решение -- a=1 b=2 c=5 s=1+2+5 = 8

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.

смотри схему