Question

На паскале. Среди заданных чисел найти количество двухзначных.

Answer 1

for i := 1 to n do begin

if ( число > 9 and число < 100) then

Счётчик = счётчик + 1;

end;

Answer 2

На языке Паскаль можно написать программу для подсчета количества двухзначных чисел в заданном наборе чисел. Вот пример кода на языке Паскаль:

pascalCopy code
program CountTwoDigitNumbers;

const
  MaxNumbers = 10; // Максимальное количество чисел в наборе
  TwoDigitMin = 10; // Минимальное двузначное число
  TwoDigitMax = 99; // Максимальное двузначное число

var
  Numbers: array[1..MaxNumbers] of Integer;
  i, CountTwoDigits: Integer;

begin
  CountTwoDigits := 0;

  // Заполнение массива числами
  writeln('Введите ', MaxNumbers, ' чисел:');
  for i := 1 to MaxNumbers do
  begin
    readln(Numbers[i]);
  end;

  // Подсчет двузначных чисел
  for i := 1 to MaxNumbers do
  begin
    if (Numbers[i] >= TwoDigitMin) and (Numbers[i] <= TwoDigitMax) then
      Inc(CountTwoDigits);
  end;

  writeln('Количество двузначных чисел: ', CountTwoDigits);
end.

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