(Turbo Pascal)Обработка текста и числа!Составьте программу,определяющую..

[Swetic]

Составьте программу,определяющую,сколько раз в натуральном числе К встречается цифра,равня последней.

[Serge_Bliznykov]

если условиями задачи не запрещено, то самый простой способ решения данной задачи это перевести число в строку и дальше проверить, сколько раз встречается в строке последний символ.
вот так:

var K : longint; {исходное число}
   s : string;
   i, count : integer;
begin
  WriteLn('Введите число: ');
  Readln(K);

  count := 0;
  str(K, s);
  for i:=1 to Length(s) do
     if s[i]=s[Length(s)] then Inc(count);

  WriteLn('Последняя цифра встречается в числе ', count, 'раз.');
  ReadLn;
end.

[Swetic]

Большое спасибо!