Question

определите значение переменной s после выполнения следующего фрагмента программы 
s:=24;
m:=3456;
while s>10 do
begin
m:=m mod 10;
s:=s-m
end;
s:=s+m;

Answer 1

Проверка условия s>10 (s=24), Да, то
m:= 3456 mod (деление с остатком)
далее подставляешь значения
Ответ будет 12