var
x, a, b, c, s: integer;
begin
x := 154;
a := x div 100;
b := x mod 100;
c := x mod 10;
s := a + b + c;
writeln(s)
end.
ответ: 59
a:=x div 100; 154 div 100 = 1 (деление нацело), a = 1
b:=x mod 100; 154 mod 100 = 54 (остаток от деления нацело), b = 54
c:=x mod 10; 154 mod 10 = 4, c=4
s:=a+b+c; 1+54+4 = 59, s=59.
ответ: 59
var
x, a, b, c, s: integer;
begin
x := 154;
a := x div 100;
b := x mod 100;
c := x mod 10;
s := a + b + c;
writeln(s)
end.
ответ: 59