Решить задачи • Найдите сумму цифр числа; • Найдите первую цифру числа; • Поменяйте порядок цифр числа на обратный; • Найдите количество четных цифр числа; • Найдите наибольшую цифру числа; • Найдите сумму цифр числа, больших 5.

Чтобы получить цифры числа

var digit, num:integer;

...

while num0 do

begin

digit : = num mod 10;

num : = num div 10;

{обработать цифру}

end;

Вот к примеру для первых двух задач

while num0 do

begin

digit : = num mod 10;

num : = num div 10;

sum:=sum+digit

end;

while num0 do

begin

digit : = num mod 10;

num : = num div 10

end;

digit - первая цифра