Определить длину и позицию слова, которое имеет наименьшую длину в строке - pascal

                                                 дерево

                       наземная часть                                       подземная часть

             ветви                           ствол                                       корни

   листья , плоды                      кора                                     корешки

                                       учебника информатики 7 класс

       глава I                  глава II             глава III            глава IV            глава V

параграф1                  параграф1     параграф1       параграф1            параграф1

параграф2                параграф2          параграф2    параграф2       параграф2

параграф3                                          

 

Самый простой вариант - подсчитать сумму четных и нечётных через цикл, в котором берём остатки от деления. Можно начать с конца и соответственно начать подсчитывать сумму только от первого числа с конца не равного 0. Подсчитываем через целочисленное деление на круглое число и нахождение остатка при деление на один. Данные, чередуя, прибавляем к разным переменным(пусть будут x1 и x2). Затем проверяем остаток от деления одной переменной на другую. Если 0 - "Yes", иначе - "No" For i=5 downto 1 do If i Mod 2 = 1 then a:= a+n div (10^(i-1)) mod 10 Else B=B+ div (10^(i-1)) mod 10;