Question

Определите значение переменной S после выполнения фрагмента программы при указанных значениях a. Нужно подробное решение, а не только заполнить таблицу, последние p,s,p>0 это столбцы таблицы
p:=а;
s:=0;
while p>0 do
begin
s:= s + p mod 10
p:= p div 10
end;
а=109
p s p>0

Answer 1

Ответ:

1) а = 23

p s p>0

23 0 true

2 3 true

0 5 false => s = 5

2) a = 32

p s p>0

32 0 true

3 2 true

0 5 false => s = 5

3) a = 109

p s p>0

109 0 true

10 9 true

1 9 true

0 10 false => s = 10

Объяснение: