Question

Помогите, пожалуйста! Использовать mod и div. Через ПАСКАЛЬ!!! Написать программу, которая запрашивает у пользователя N целых чисел и подсчитывает, сколько среди них двузначных чисел. Программа сначала должна запросить у пользователя, сколько чисел он введет (это будет число N), а затем сами числа. Не пользуй, пожалуйста: const, count. Через Паскаль!

Answer 1

Program p1;
uses crt;
var a,n,i,k:integer;
begin
write('Введи кол-во чисел');
read(n);
for i:=1 to n do begin
read(a);
If a div 10 <>0 then
K:=k+1;
end;
write('двузначных чисел ',K);
end.

Answer 2

Конечно, вот пример программы на Паскале, которая решает данную задачу с использованием операторов mod и div:

pascalCopy code
program CountTwoDigitNumbers;

var
  N, number, twoDigitCount, i: Integer;

begin
  // Запрашиваем у пользователя количество чисел N
  Write('Введите количество чисел: ');
  ReadLn(N);

  // Инициализируем счетчик двузначных чисел
  twoDigitCount := 0;

  // Цикл для ввода N чисел и подсчета двузначных чисел
  for i := 1 to N do
  begin
    Write('Введите число ', i, ': ');
    ReadLn(number);

    // Проверяем, является ли число двузначным
    if (number >= 10) and (number <= 99) then
      Inc(twoDigitCount);
  end;

  // Выводим результат
  WriteLn('Количество двузначных чисел среди введенных: ', twoDigitCount);
end.

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