Найти сумма единиц

[Bayram_662]

Где ошибка?заранее спасибо
var
a,k,s:integer;
begin
while a>0 do
begin
k:=a mod 10;
a:=a div 10 ;
s:=s+k;
writeln(s)

end;





end.

[NSvirus]

ну ты представь что ты будешь делить ноль на 10.
а теперь представь что это будет продолжаться до тех пор, пока не станет больше нуля.
установи начальное значение для а.

[LeBron]

Нет, в этом плане проблемы немного другие будут - ведь цикл работает "пока больше", тоесть всего 0 раз. Во-первых, установить а, это да, а еще - сомневаюсь, что сумму надо выводить каждый раз - если не надо, то вынесите ее из тела цикла.

[Drake76]

Мне кажется, здесь не только проблемма в отсутствии значения а, но и в том, что не присвоено начальное значение S.

[LeBron]

Сообщение от Drake76

Мне кажется, здесь не только проблемма в отсутствии значения а, но и в том, что не присвоено начальное значение S.

За умолчанием равно 0. Проблемы нету. а тоже равно 0, поэтому, если действительно надо обрабатывать 0, то проблем нету вообще

[Bayram_662]

я врубился)) нужно было токо readln(a) и все прога работает)

[noskovgleb]

ну жжешь чувак)