Var n,k:integer; begin write('n='); readln(n); k:=0; if n div 100 = 1 then k:=k+1; if n div 10 mod 10 = 1 then k:=k+1; if n mod 10 = 1 then k:=k+1; writeln('k=',k); end.
Пример: n=191 k=2
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
