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

Question

Информатика

Васс

16 апреля, 05:48

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

+3

Ответы (1)

Знаете ответ на вопрос?

Валяка · 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.