zadany информатика / Turbo Pascal / Задан_ГШП_While

Цикл с предусловием (обработка числовых данных)

Дано n-значное целое число типа longint.

Произвести с ним действия согласно № варианта.

1. Подсчитать количество четных цифр в числе.

2. Подсчитать количество нечетных цифр в числе.

3. Подсчитать количество цифр в числе, делящихся на 2 без остатка.

4. Подсчитать в числе количество цифр<=m, введенного с клавиатуры.

5. В исходном числе n - нечетное. Вывести срединную цифру.

6. Вывести введенное число в зеркальном отображении.

7. Вывести только те цифры числа, которые не делятся на 3 без остатка.

8. Подсчитать количество цифр > m.

9. Вывести на экран только нечетные цифры в порядке их расположения в числе.

10. Вывести на экран только повторяющиеся цифры и количество их повторений.

11. Вывести наименьшую цифру числа.

12. Вывести наибольшую цифру числа.

13. Вывести цифры, лежащие в интервале [a ; b].

14. Вывести те цифры, которые при делении на р дают

в остатке q, ( p>q>=0).

15.Заменить нулями все четные цифры.

16.Вывести только те цифры , значения которых совпадают с местом

(разрядом) этой цифры в числе. Для упрощения задачи вводите

каждую цифру только один раз.

17.Вывести только цифры самого младшего и самого старшего разрядов.

18.Вывести сумму всех четных цифр числа.

19.Вывести сумму всех нечетных цифр числа.

20.Вывести сумму наибольшей и наименьшей цифр числа.

21.Вывести сумму всех цифр числа.

22.Вывести разницу между цифрами старшего и младшего разрядов числа.

23.Если цифра старшего разряда больше цифры младшего разряда, то

исходное число увеличить вдвое, в противном случае вычесть из него

число, равное цифре старшего разряда.

24.Если цифра младшего разряда четная, то вывести все четные цифра

числа, в противном случае – все нечетные.

25.Если в числе встречается цифра к, то то к исходному числу прибавить эту величину, если встречается цифра m, то из исходного числа вычесть эту величину.