Question

Помогите с информатикой что поменять в проге ниже чтобы показывало не количество цифр в числе а нечетное ( или четноe) количество Var k : integer; function kol(x: integer): integer; var k: integer; begin k := 0; repeat x := x div 10; inc(k) until x = 0; kol := k end; begin write (k); readln (k); writeln(k, 'kol ', kol(k)); end. чтобы покозывало не количество цифр в числе а нечетное (четно)количество

Answer 1

Var k : integer;
function kol(x: integer): integer;var k: integer;begink := 0;repeatx := x div 10;inc(k)until x = 0;kol := kend;beginreadln (k);if kol(k) mod 2 = 0 then begin  writeln('Чётное');endelse begin  writeln('Нечётное');end;end.

Answer 2

Чтобы программа показывала нечетное (или четное) количество цифр в числе вместо количества цифр, вам нужно изменить функцию kol таким образом, чтобы она определяла нечетное или четное количество цифр в числе. Вот обновленный код:

pascalCopy code
Var
  k : integer;

function CountOddDigits(x: integer): integer;
var
  digit: integer;
begin
  CountOddDigits := 0;
  repeat
    digit := x mod 10; // Получаем последнюю цифру числа
    if digit mod 2 <> 0 then // Проверяем, является ли цифра нечетной
      inc(CountOddDigits); // Если нечетная, увеличиваем счетчик нечетных цифр
    x := x div 10; // Убираем последнюю цифру числа
  until x = 0;
end;

begin
  write('Введите число: ');
  readln(k);
  writeln('Число ', k, ' содержит ', CountOddDigits(k), ' нечетных цифр(ы).');
end.

Теперь программа будет запрашивать у пользователя число и выводить количество нечетных цифр в нем. Если вы хотите определить четные цифры, то замените условие if digit mod 2 <> 0 на if digit mod 2 = 0.