Question

Программирование циклов : Составьте программу по которой компьютер десять раз запросит ввод целых чисел и в результате сообщит сколько среди введённых чисел чётных и сколько нечётных В ПАСКАЛЕ С ИСПОЛЬЗОВАНИЕМ WHILE или REPEAT или FOR только без скобок квадратных , дам 40 БАЛЛОВ

Answer 1

Var
i, k, x: integer;
begin
k:=0;
for i:=1 to 10 do
begin
readln(x);
if x mod 2 = 0 then //если x четный
inc(k); //увеличиваем k на 1
end;
writeln('Четных: ', k);
writeln('Нечетных: ', 10-k);
end.

Answer 2

Программа на Pascal для подсчета четных и нечетных чисел

Для создания программы на Pascal, которая запрашивает ввод десяти целых чисел и затем сообщает, сколько среди них четных и нечетных, можно использовать цикл `FOR`. Вот пример программы:

program CountEvenOddNumbers;
var
  number, evenCount, oddCount, i: integer;
begin
  evenCount := 0;
  oddCount := 0;
  for i := 1 to 10 do
  begin
    write('Введите целое число: ');
    readln(number);
    if number mod 2 = 0 then
      evenCount := evenCount + 1
    else
      oddCount := oddCount + 1;
  end;
  writeln('Количество четных чисел: ', evenCount);
  writeln('Количество нечетных чисел: ', oddCount);
end.

Эта программа использует переменные `evenCount` и `oddCount` для подсчета четных и нечетных чисел соответственно. Цикл `FOR` выполняется 10 раз, запрашивая ввод чисел и увеличивая соответствующий счетчик в зависимости от того, четное это число или нет.

Пример использования: ``` Введите целое число: 5 Введите целое число: 8 Введите целое число: 3 Введите целое число: 6 Введите целое число: 2 Введите целое число: 9 Введите целое число: 4 Введите целое число: 7 Введите целое число: 1 Введите целое число: 10 ``` Результат: ``` Количество четных чисел: 5 Количество нечетных чисел: 5 ```

Эта программа позволит пользователю ввести 10 целых чисел и выведет количество четных и нечетных чисел среди них.