1. Определите число, которое будет напечатано в результате выполнения программы: var n, s: integer; begin n := 0; s := 301; while s > 0 do begin s := s - 10; n := n + 3 end; write(n) end. 2. Составить программу определения суммы цифр произвольного числа. Например, для числа 2341 ответ будет 10