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.

Answer 2

A = (184 div 100) = 1
b = (184 mod 100) = 84
с = (184 mod 10) = 18
s = (1+84+18) = 103