Question

паскаль. дано число найдите сколько раз в нем встречается цифра 7 через repeat

Answer 1

var a, x, count:integer;

begin

 writeln('Введите число: ');

 readln(a);  

 x := a;

 repeat

   if (x mod 10 = 7) then

     count := count + 1;

   x := x div 10;

 until x = 0;

writeln(count);

end.