Verified answer

Ответ:

Program test;

var i,a,b,c:integer;

begin

 i:=10;

 writeln('Введите 4-чное число');

 readln(a);

 b := a*10;

 while i<=10000 do

 begin

   c := c + (b div i) mod 10;

   i := i*10;

 end;

   writeln(c);

end.

Объяснение:

Не совсем понял смысл умножения на 10, если просто приписывается 0 и на сумму цифр результат не влияет, но хозяин барин.