Question

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

Answer 1

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

Answer 2

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