Вводится натуральное число n требуется найти сумму четных цифр числа 2) найти количество...

Question

Вводится натуральное число n требуется найти сумму четных цифр числа 2) найти количество цифр 2 в числе 3) найти максимальную нечетную цифру в числе ПАСКАЛЬ СРОЧНО!!

Answer 1

{}
var
n : uint64;
sum, count, max: byte;
begin
write ('Введите натуральное число: ');
readln (n);

repeat
if ((n mod 10) mod 2)=0 then inc (sum, n mod 10)
else if (n mod 10)>max then max:=n mod 10;
if (n mod 10) = 2 then inc (count);
n:=n div 10;
until n=0;

writeln ('Сумма четных цифр: ', sum);
writeln ('Кол-во цифр 2: ', count);
if max=0 then writeln ('Нет нечетных цифр') else
writeln ('Макс. нечетная цифра: ', max);
end.