var a,x,y,z,m:integer; begin write ('Введите число: '); read(a); x:=a; z:=0; repeat x:= x div 10; if x=5 then z:=z+1; x:=x mod 10 until x=0; write('Количество цифр 5: ', z) end.
Яндекс