Question

Решите задачу на языке Pascal для 8 класса: 1) Распечатать только нечетные цифры числа 2) Количество каких больше, чётных или нечётных? ​

Answer 1

Ответ:

это четные и нечетные

var  

a: integer;

even,odd: byte;

begin

readln(a);

even := 0;

odd := 0;

while a > 0 do begin

 if (a mod 2) = 0 then

  even := even + 1

 else

  odd := odd + 1;

 a := a div 10;

end;

writeln('even: ', even);

writeln('odd: ', odd);

end.

Объяснение:

Answer 2

Конечно, вот решение на языке Pascal:

pascalCopy code
program OddEvenDigits;

var
  number, digit, oddCount, evenCount: integer;

begin
  oddCount := 0;
  evenCount := 0;

  // Ввод числа с клавиатуры
  write('Введите число: ');
  readln(number);

  // Проверяем каждую цифру числа
  while number > 0 do
  begin
    digit := number mod 10; // Получаем последнюю цифру
    number := number div 10; // Убираем последнюю цифру

    // Проверяем, является ли цифра нечетной
    if digit mod 2 <> 0 then
    begin
      writeln('Нечетная цифра: ', digit);
      oddCount := oddCount + 1;
    end
    else
      evenCount := evenCount + 1;
  end;

  // Выводим результат
  writeln('Количество четных цифр: ', evenCount);
  writeln('Количество нечетных цифр: ', oddCount);

  if evenCount > oddCount then
    writeln('Четных цифр больше')
  else if evenCount < oddCount then
    writeln('Нечетных цифр больше')
  else
    writeln('Четных и нечетных цифр одинаковое количество');
end.

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