Определите значения переменной S после выполнения следующего фрагмент...

Question

Определите значения переменной S после выполнения следующего фрагмент программы:

s:=24;
m:=3456;
while s>10 do
begin
m:=m mod 10;
s:=s-m;
end;
s:=s+m;

Answer 1

1)24>10 do
   m:=6;
   s:=24-6=18;
2)18>10 do
    m:=6(не меняется)
    s:=18-6=12
3)12>10 do 
    m:=6(не меняется)
    s:=12-6=6
 4)6>10(нет)
s:=6+6=12
Ответ:12