Составьте программу по которой компьютер десять раз запросит ввод целых и в результате сообщит сколько...

Конечно! Давайте напишем программу на языке Паскаль, которая будет запрашивать у пользователя ввод десяти целых чисел и подсчитывать, сколько из них четных и сколько нечетных.

Вот пример кода:

program CountEvenOdd;

var
  i, number: integer;
  evenCount, oddCount: integer;

begin
  evenCount := 0;  // Инициализация счетчика четных чисел
  oddCount := 0;   // Инициализация счетчика нечетных чисел

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

    // Проверка, является ли число четным или нечетным
    if number mod 2 = 0 then
      evenCount := evenCount + 1  // Увеличиваем счетчик четных чисел
    else
      oddCount := oddCount + 1;    // Увеличиваем счетчик нечетных чисел
  end;

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

Объяснение программы:

1. Объявление переменных:

   • i - переменная цикла, которая будет использоваться для итерации от 1 до 10.
   • number - переменная для хранения введенного пользователем целого числа.
   • evenCount и oddCount - счетчики для четных и нечетных чисел соответственно.

2. Инициализация счетчиков:

   • Счетчики evenCount и oddCount инициализируются нулями перед началом ввода чисел.

3. Цикл ввода:

   • Цикл for выполняется 10 раз, запрашивая пользователя ввести целое число.
   • Функция ReadLn(number) считывает введенное число и сохраняет его в переменной number.

4. Проверка четности:

   • Используется оператор mod, чтобы определить, является ли число четным (number mod 2 = 0). Если да, увеличивается счетчик четных чисел.
   • Если число нечетное (в противном случае), увеличивается счетчик нечетных чисел.

5. Вывод результатов:

   • После завершения ввода программа выводит количество четных и нечетных чисел.

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

Вот пример программы на языке Pascal, которая запрашивает у пользователя десять целых чисел, подсчитывает количество чётных и нечётных чисел, а затем выводит результат:

program CountEvenOdd;

var
  i, num, evenCount, oddCount: integer;

begin
  evenCount := 0;  // Счётчик чётных чисел
  oddCount := 0;   // Счётчик нечётных чисел
  
  writeln('Введите 10 целых чисел:');
  
  // Цикл для ввода 10 чисел
  for i := 1 to 10 do
  begin
    write('Введите число ', i, ': ');
    readln(num);  // Ввод числа
    
    // Проверка на чётность или нечётность
    if num mod 2 = 0 then
      evenCount := evenCount + 1  // Увеличиваем счётчик чётных чисел
    else
      oddCount := oddCount + 1;   // Увеличиваем счётчик нечётных чисел
  end;
  
  // Вывод результата
  writeln('Количество чётных чисел: ', evenCount);
  writeln('Количество нечётных чисел: ', oddCount);
end.

Объяснение программы:

1. Переменные:

   • i — счётчик для цикла.
   • num — переменная для хранения введённого числа.
   • evenCount — счётчик чётных чисел, изначально равен 0.
   • oddCount — счётчик нечётных чисел, изначально равен 0.

2. Цикл for:

   • Выполняется 10 раз (с 1 до 10).
   • На каждой итерации программа запрашивает число у пользователя.

3. Проверка чётности:

   • Если остаток от деления числа на 2 (num mod 2) равен 0, то число чётное, и увеличивается evenCount.
   • Если остаток не равен 0, то число нечётное, и увеличивается oddCount.

4. Вывод результата:

   • После завершения цикла программа выводит количество чётных и нечётных чисел.

Пример работы программы:

Введите 10 целых чисел:
Введите число 1: 5
Введите число 2: 8
Введите число 3: 13
Введите число 4: 22
Введите число 5: 7
Введите число 6: 4
Введите число 7: 1
Введите число 8: 10
Введите число 9: 9
Введите число 10: 6

Количество чётных чисел: 5
Количество нечётных чисел: 5

Программа в компактной и понятной форме решает задачу подсчёта чётных и нечётных чисел.