Описать процедуру sumdigit(n, s), находящую сумму цифр s целого числа n (n — входной, s — выходной параметр используя эту процедуру, найти суммы цифр пяти данных чисел.

  procedure   sumdigit(n: byte; var s: byte); begin s: =n mod 10+n div 10; end;

1)  - основание четное, смотрим на последнюю цифру, это 0 - четная цифра, значит все это число четное. 2) - основание четное, смотрим на последнюю цифру, это d 13, цифра 13 не четное, значит число не четное 3) - основание четное, см на последнюю цифру, это a - 10, четная цифра, четное число. 4) - основание не  четное, см на сумму цифр: 3+2=5, 5 не четное, число не четное 5) - основание четное, см на последнюю цифру 3 - не  четное, число не четное 6) - основание не четное, см на сумму цифр: 3+5 = 8, четное, число четное. ответ: не четными являются:   ,    ,   

1.  kbra69kbk  1) меняем  "ra6" на "fl" получаем  kbfl9kbk   2)  "kb" на"12b" получаем 12bfl912bk  3) удаляем три последних  12bfl91 (ответ 1) 2.  в конце цепочки стоит одна из бусин р, n, т, o. (подходят все)      на первом – одна из бусин p, r, t, o, которой нет на третьем месте.( т.е. 1 и 3 не должны повториться)(подходят все, кроме второй)      на третьем месте – одна из бусин o, p, t, не стоящая в цепочке последней. (т.е. 3 и 4 не повторяются и не должны быть n) (подходят 1 и 4)ответ 1 и 4