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.
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.