Дано двухзначное число. Найти число единиц в нём
Дано двухзначное число. Найти число единиц в нём
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы