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.

Answer 2

Для того чтобы найти, сколько раз цифра 7 встречается в данном числе, используя цикл "repeat" в Pascal, можно следующим образом:

pascalCopy code
program CountSevens;

var
  number, tempNumber, countSevens: Integer;
  
begin
  writeln('Введите число: ');
  readln(number);
  
  countSevens := 0;
  tempNumber := number;
  
  repeat
    if tempNumber mod 10 = 7 then
      countSevens := countSevens + 1;
      
    tempNumber := tempNumber div 10;
  until tempNumber = 0;
  
  writeln('Цифра 7 встречается в числе ', number, ' ', countSevens, ' раз(а).');
end.

В этом примере, мы используем переменную "tempNumber" для сохранения копии исходного числа, чтобы не изменять его значение в процессе работы. Затем в цикле "repeat" мы проверяем последнюю цифру числа с помощью оператора "mod 10" и увеличиваем счетчик "countSevens", если это цифра 7. Затем делим число на 10 с помощью оператора "div 10", чтобы перейти к следующей цифре, и продолжаем этот процесс до тех пор, пока число не станет равным нулю.

Программа выведет количество вхождений цифры 7 в данное число.