2 задачи Free Pascal

1. Отбор двузначных чисел по сумме цифр

Из чисел от 10 до 99 вывести те, сумма цифр которых равна s (0<s<=18)

Указания к решению: Обозначить через k очередное число, p1 – старшую цифру числа k, p2 – младшую цифру числа k , s – сумму цифр числа k. Число k печатать только в том случае, когда сумма p1 и p2 будет равна s.

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

Указания к решению: Подсчет количества цифр с последней цифры числа. На очередном шаге цикла увеличить счетчик цифр на единицу, а число уменьшим в 10 раз (тем самым мы избавляемся от последней цифры числа). Далее с получившимся числом проделаем ту же последовательность действий и т.д., пока число не станет равным нулю.

Кроме обычных целых чисел, можно использовать так называемые длинные целые числа, которые могут принимать значения из большего диапазона. Переменные соответствующего типа описываются посредством идентификатора Longint и могут принимать значения в диапазоне от –2147483648 до 2147483647.