постройте таблицу значений переменных p, os, s на каждом шаге цикла и определите значение переменной s после выполнения фрагмента программы при а=569:
p := a;
s := 0;
while p >0 do
begin
os:=p mod 10;
if os mod 3=0 then s:=s+os; p:=p div 10 end​