Question

Помогите пожалуйста с информатикой!!!)

Answer 1

var
a,b,c,s,x:longint;
begin
readln(x);
a:=x div 100;
b:=x mod 100;
c:=x mod 10;
s:=a+b+c;
writeln(a);
writeln(b);
writeln(c);
writeln(s);
end.
PASCAL.ABC

Answer 2

при x = 115 
s будет равна 21