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

Question

Информатика

Василько

15 декабря, 10:29

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

+1

Ответы (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.