Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.