Question

Посчитать, сколько раз встречается определенная цифра в введенной последовательности чисел. Количество вводимых чисел и цифра, которую необходимо посчитать, задаются вводом с клавиатуры. ЧЕРЕЗ ПАСКАЛЬ!!!!! срочно

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadlnInteger('Сколько чисел вводим?');
  var c:=ReadlnChar('Какую цифру ищем?');
  Writeln('Найдено таких цифр: ',
      ReadSeqInteger('Вводите числа:',n).Select(t->t.ToString).
          JoinIntoString.Where(d->d=c).Count)
end.

Пример
Сколько чисел вводим? 6
Какую цифру ищем? 7
Вводите числа: 13252 234 -234 3423 707 3242976
Найдено таких цифр: 3

Answer 2

К сожалению, я являюсь текстовой моделью и не имею возможности напрямую взаимодействовать с языками программирования или компиляторами, включая Pascal. Однако, я могу предоставить вам пример кода на Pascal, который решает вашу задачу. Вы можете скопировать и вставить его в свою среду разработки Pascal.

Ниже приведен пример кода на Pascal, который подсчитывает, сколько раз определенная цифра встречается в последовательности чисел:

pascalCopy code
program CountDigitOccurrences;

var
  n, digit, number, count: integer;

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

  writeln('Введите цифру, которую нужно посчитать:');
  readln(digit);

  count := 0;

  writeln('Введите последовательность чисел:');
  for var i := 1 to n do
  begin
    readln(number);

    // Подсчет количества вхождений цифры в числе
    while number <> 0 do
    begin
      if number mod 10 = digit then
        Inc(count);
      number := number div 10;
    end;
  end;

  writeln('Цифра ', digit, ' встречается ', count, ' раз(а) в последовательности.');
end.

Вы можете скопировать этот код в среду программирования Pascal, скомпилировать и запустить его. Программа запросит количество чисел и цифру, которую нужно посчитать, а затем последовательно попросит ввести числа. После ввода всех чисел программа выведет количество вхождений заданной цифры в последовательности.