Решить задачи*Найдите сумму цифр числа; *Найдите первую цифру числа; *Поменяйте…

Чтобы получить цифры числаvar digit,num: integer; … .while num<>0 dobegin digit: =num mod 10; num: =num div 10; {обработать цифру}end; Вот к примеру для первых двух задач while num<>0 dobegin digit: =num mod 10; num: =num div 10; sum: =sum+digitend; while num<>0 dobegin digit: =num mod 10; num: =num div 10end; digit — первая цифра