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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.