Question

Исходное данное-целое трехзначное число х. выполните для х-248 и х-789 следующий алгоритм:
а:=х div 100
b:=x mod 100 div 10
c:=x mod 10
s:=a+b+c
пожалуйста

Answer 1

Var a,b,c,s,x: integer;
begin
  write('x = ');  readln(x);
  а:=х div 100;
  b:=x mod 100 div 10;
  c:=x mod 10;
  s:=a+b+c;
  writeln(s);
end.
При вводе  x = 248 будет напечатано  14,   при вводе x = 789 будет напечатано 24