Question

составить программу, запрашивающую числа до тех пор пока не будет введено 10 и посчитывающую сколько из них нечетных. (подсказка: при проверке нечетности использовать mod) программу можно сделать в паскаль.

Answer 1

Ответ:

pascal

Объяснение:

var

 x, k : integer;

begin

 WriteLn('Введите числа (для окончания 10):');

 repeat

   ReadLn(x);

   if x mod 2 = 1 then inc(k);

 until x = 10;

 WriteLn('Количество нечетных чисел равно ', k);

end.

Answer 2

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

pascalCopy code
program CountOddNumbers;
var
  number, count, oddCount: integer;
begin
  count := 0; // Инициализируем счетчик введенных чисел
  oddCount := 0; // Инициализируем счетчик нечетных чисел
  
  writeln('Введите 10 чисел:');
  
  while count < 10 do
  begin
    write('Введите число ', count + 1, ': ');
    readln(number);
    
    if number mod 2 <> 0 then
      oddCount := oddCount + 1; // Если число нечетное, увеличиваем счетчик
    
    count := count + 1; // Увеличиваем счетчик введенных чисел
  end;
  
  writeln('Из введенных 10 чисел ', oddCount, ' нечетных.');
end.

Эта программа будет запрашивать 10 чисел и подсчитывать, сколько из них нечетных, а затем выводить результат.