определите заначение переменной s после выполнения фрагмента программы при указанных занчениях a

program modf;vara, p, s : integer;begina := 109;p := a;s := 0;while p>0 dobegin s := s + p mod 10; p := p div 10;end;writeln(s);end.

и у меня к вам сапасибо не ставиться

Вместо 109, надо ставить числа которые указаны в задании.

ок

Можешь сам проверить, через программу PascalABC.NET

a = 5a = 5a = 10Я сверил, именно это правильные ответы. (Сверил в программе PascalABC.net)