Question

Дано число N. Напишете программу, которая определит, сколько раз цифра 5 встречается этом числе.​

Answer 1

var n,s:integer;

begin

 read(n);

 while n<>0 do begin

   if n mod 10 = 5 then s+=1;

   n:=n div 10;

 end;

print(s);

end.