С клавиатуры вводится целое положительное число. Определить, сколько раз в этом числе...

Question

С клавиатуры вводится целое положительное число. Определить, сколько раз в этом числе встретилась цифра 5.
Packal ABC
срочно пожалуйста

Answer 1

Var 
  n, c: integer;
begin
  read(n);
  c := 0;
  while n > 0 do begin
    if n mod 10 = 5 then inc(c);
    n := n div 10
  end;
  write(c)
end.