Определить сколько раз в данное четырехзначное число входит цифра 1

Question

Определить сколько раз в данное четырехзначное число входит цифра 1

Comments

В какое число?

---

неважно, программа на языке паскаль.

Answer 1

Var  iNum: integer; //Число
  
begin
  readln(iNum);
  writeln(iNum div 1, ' раз');
end.

Comments

Оттого на 0 делить и нельзя - сколько не вкладывай 0, а число не получится