program z1;
var a,k,p:integer;
begin
write('Введите число: ');
readln(a);
k:=0;
p:=a mod 10;
while a>0 do
if a mod 10 = p then k:=k+1;
a:=a div 10
end;
writeln(k,' раз(-а) встречается последняя цифра')
end.
program z1;
var a,k,p:integer;
begin
write('Введите число: ');
readln(a);
k:=0;
p:=a mod 10;
while a>0 do
begin
if a mod 10 = p then k:=k+1;
a:=a div 10
end;
writeln(k,' раз(-а) встречается последняя цифра')
end.