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.