Question

Дан массив целых чисел А [10]. Найти количество трехзначных чисел, содержащих в себе цифру 7. . Диапазон элементов от 1 до 1000. Если задача решается написанием программы, то написать лучше в Паскале. Спасибо!

Answer 1

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

program CountNumbers;

var
  A: array [1..10] of integer; // массив из 10 элементов для примера
  count: integer; // переменная для хранения количества чисел

procedure CountNumbersWithDigit7;
var
  i, number: integer;
begin
  count := 0; // начальное значение счетчика

// Проходим по массиву чисел
  for i := 1 to 10 do
  begin
    number := A[i];

// Проверяем, что число трехзначное и содержит цифру 7
    if (number >= 100) and (number <= 999) and ((number mod 10 = 7) or ((number div 10) mod 10 = 7) or ((number div 100) mod 10 = 7)) then
      count := count + 1; // увеличиваем счетчик
  end;
end;

begin
  // Пример заполнения массива
  A[1] := 127;
  A[2] := 347;
  A[3] := 789;
  A[4] := 456;
  A[5] := 871;
  A[6] := 123;
  A[7] := 567;
  A[8] := 987;
  A[9] := 345;
  A[10] := 702;

// Вызываем процедуру для подсчета трехзначных чисел с цифрой 7
  CountNumbersWithDigit7;

// Выводим результат
  writeln('Количество трехзначных чисел, содержащих цифру 7: ', count);
end.

Этот код просто приведен в качестве примера и может потребоваться адаптация в зависимости от конкретных требований или особенностей вашей среды разработки на языке Паскаль.