Найдите первую цифру числа. например, для числа 7658 это цифра 7. написать блок-схему и программу. pascal abc напишите полную программу. заранее )

Программа(только для положительных чисел! ): var num,prev: integer; begin readln(num); while num> 0 do begin   prev: =num;   num: =num div 10; end; writeln(prev); end. блок-схема описывается примерно так: 1. получаем число 2. отбрасываем одну его цифру 3. если получили 0, то выводим то, что было до отбрасывания(переменная prev), иначе переходим к пункту 2. также не вполне честный, но тоже эффективный вариант: var s: string; begin readln(s); writeln(s[1]); end.

создание маркированного списка

для создания маркированного списка нужно нажать на кнопку «маркеры» в вышеназванном меню, при этом не имеет значения, где в этот момент расположен курсор, в начале строки или в ее середине. в любом случае маркером будет отмечен весь абзац, в котором располагался курсор в это время.

определение формата маркера

при нажатии стрелочки справа от кнопки «маркеры» появляется меню, в котором отображаются последние использованные маркеры, библиотека маркеров и маркеры, используемые в документах по умолчанию. определение нового маркера возможно здесь же. под этим понимается выравнивание маркера и знак маркера, в качестве которого можно использовать символы и различные рисунки (при необходимости нужные маркеры можно загрузить из разных источников).

x = int ( #ввод х, х - целое число

s = 0 #переменная для суммы

if x == 0:

    print(s) #если х - нулевой, то сумма нечетных цифр равна 0

else:

    while x ! = 0:   #начинаем цикл поиска цифр

        c = x%10 # "отрезаем" от х последнюю цифру и записываем в переменную с

        if c ! = 0 and c%2 ! = 0:   #если цифра с делится на 2 с остатком, то она нечетная

            s = s + c #тогда мы ее прибавляем к s

        x = x // 10 #"отрезаем" от х последнюю цифру, а оставшееся число записываем в х

    print(s)