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 и на сумму цифр результат не влияет, но хозяин барин.
