Question

Есть ли в записи введенного числа четные цифры?Paskal. Без массива. ​

Answer 1

Ответ:

program z1;

var a,k:integer;

begin

k:=0;

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

readln(a);

repeat

if a mod 10 mod 2 = 0 then k:=1;

a:=a div 10

until (a=0) or (k=1);//прерываем цикл если перебрали все цифры числа или нашли чётную цифру

if k=1 then write ('Есть чётные цифры')

else write ('Нет чётных цифр')

end.

Answer 2

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

pascalCopy code
program CheckEvenDigits;
var
  num, digit: Integer;
  hasEvenDigit: Boolean;
begin
  writeln('Введите число:');
  readln(num);
  
  hasEvenDigit := False;
  num := Abs(num); // Убедитесь, что число положительное
  
  while num > 0 do
  begin
    digit := num mod 10; // Получаем последнюю цифру числа
    
    if digit mod 2 = 0 then // Проверяем, является ли цифра четной
    begin
      hasEvenDigit := True;
      break; // Если найдена четная цифра, выходим из цикла
    end;
    
    num := num div 10; // Удаляем последнюю цифру числа
  end;
  
  if hasEvenDigit then
    writeln('В записи числа есть четные цифры.')
  else
    writeln('В записи числа нет четных цифр.');
    
  readln;
end.

Программа запрашивает у пользователя ввод числа и затем проверяет каждую цифру числа, начиная с последней. Если найдена четная цифра, устанавливается флаг hasEvenDigit в значение True, и цикл прерывается. После проверки всех цифр программа выводит соответствующее сообщение о наличии или отсутствии четных цифр в числе.