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

Question

Информатика: Склавиатуры вводится целое положительное число. определить, сколько раз в этом числе встретилась цифра 5. packal abc

tamiirap01inx · Answer

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....