Question

Подсчитать количество чётных цифр, неравных 6 в введённом числе с помощью массива в паскале ( Пример 1213 - кол-во цифр =1) срочноо пожалуйста

Answer 1

Ответ:

Программа без использования массива, так как смысла его использовать нет.

var x,rem,cnt:integer;

begin

 readln(x);

 cnt:= 0;

 while x > 0 do

 begin

   rem:= x mod 10;

   if (rem mod 2 = 0) and (rem <> 6) then

       inc(cnt);

   x:= x div 10

 end;

 writeln (cnt);

end.

Answer 2

Ответ:

program HomeWork;

 var c,i,si:integer;

 var ss:longint;

 var s:string;

begin

 c:=0;

 write('Введите число: '); readln(ss);

 str(ss,s);

 for i:=1 to length(s) do

   begin

     val(s[i],si);

     if (si mod 2 = 0) and (si <> 6) then c:=c+1;

   end;

 writeln('Количество чётных цифр в ведённом числе (исключая цифру 6): ', c);

end.

Answer 3

Конечно, вот пример программы на языке Pascal, которая подсчитывает количество четных цифр, не равных 6, в введенном числе:

pascalCopy code
program CountEvenDigitsNot6;
var
  num, digit, count: integer;
begin
  // Инициализируем счетчик
  count := 0;

  // Вводим число
  write('Введите число: ');
  readln(num);

  // Проверяем каждую цифру числа
  while num > 0 do
  begin
    // Получаем последнюю цифру числа
    digit := num mod 10;
    
    // Проверяем, является ли цифра четной и не равной 6
    if (digit mod 2 = 0) and (digit <> 6) then
      count := count + 1;
    
    // Убираем последнюю цифру из числа
    num := num div 10;
  end;

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

Вы можете скопировать этот код в среду программирования Pascal (например, Lazarus) и запустить его, чтобы подсчитать количество четных цифр, не равных 6, в введенном числе.