P: =a; . (a=32)s: =0; while p> 0 dobegins: = s+p mod 10; p: = p div 10; end;

alenkavarina    1   08.10.2019 11:50    3