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

1
В какое число?
неважно, программа на языке паскаль.

Ответы и объяснения

2014-02-10T17:20:09+04:00
Var  iNum: integer; //Число
  
begin
  readln(iNum);
  writeln(iNum div 1, ' раз');
end.
Оттого на 0 делить и нельзя - сколько не вкладывай 0, а число не получится