Question

Исходное данное — трёхзначное число x. Выполни для x=184 следующий алгоритм. a:=xdiv100b:=xmod100c:=xmod10s:=a+b+c

Answer 1

Может получиться так:

//Pascal ABC.NET v 3.3

var

  x, s: integer;

begin

  readln(x);

  s := (x div 100) + (x mod 100) + (x mod 10);

  writeln(s);

end.