Дано двухзначное число. Найти число единиц в нём

Question

Дано двухзначное число. Найти число единиц в нём

Answer 1

var a,k:integer; 
begin 
read(a); 
if (a mod 10=1) then k:=k+1; 
if (a div 10=1) then k:=k+1; 
if k=0 then writeln('Единиц нет') 
else writeln(k); 
end.