1. Дано натуральное число: 1) найти количество цифр данного числа 2) Верно ли что данное число оканчивается на нечетную цифру

program zz1;

var n, k, m, b:integer;

begin

writeln ('Введите исходное натуральное число');

read (n); / /Вводим исходное число

while n>0 do / /заводим цикл пока число больше нуля

begin

m:=n mod 10; / /получаем последнюю цифру

n:=n div 10; / /отбрасываем последнюю цифру

k:=k+1; / /считаем цифру

if k=1 then b:=m; / /запоминаем последнюю цифру числа

end;

writeln ('Количество цифр в исходном числе - ', k); / /выводим ответ

if b mod 2 = 0 then write ('Число не оканчивается на нечетную цифру') / /проверяем последнюю цифру на нечетность

else write ('Число оканчивается на нечетную цифру');

end.