Дано натуральное число.определить:

[Юрий6893]

Помогите пжалуйста найти решение в паскале:
№1 Дано натуральное число.определить:
а) количество цифр 3 в нем;
б) сколько раз в нем встречается цифра равная последней.;
в) Количество четных цифр в нем .Составное условие и более одного неполного условного оператора не использовать.;
г)сумму его цифр больше пяти;
д)произведение его цифр больше семи;
е)сколько раз в нем встречаются цифры 0 и 5;
№2 Известны данные о температуре воздуха в течении месяца.Определить,сколько раз температура опускалась ниже нуля.

[ViktorR]

Получить цифры, составляющие число, можно операцией целочисленного деления на 10
N - исходное число. K - целая часть числа после деления на 10.
M - остаток деления. Тогда:

readln(N); {получим число}
K := N;
p := 0; {цифр в числе}
Chet := 0; {четных цифр}
repeat
M := K mod 10; {последняя цифра справа}
K := K div 10;

p := p + 1; {или ink(p)}
{для определения того, что число четное, можно использовать одно неполное условие}
if ((M mod 2) = 0) Then Chet := Chet + 1;
...

until K <> 0; {пока результат деления не станет равным нулю}

Ну и так далее ...