Question

Написать программу, которая печатает значение логического выражения (TRUE или FALSE):8. Среди цифр четырехзначного числа есть четная.

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 ReadInteger('n=').ToString.Any(t -> t in '02468').Println

end.

Пример

n= 1503

True

Answer 2

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

program CheckEvenDigit;
var
  number: integer;
  digit: integer;
  hasEvenDigit: boolean;
begin
  write('Введите четырехзначное число: ');
  readln(number);

hasEvenDigit := false;

// Проверяем каждую цифру числа на четность
  digit := number mod 10;
  if digit mod 2 = 0 then
    hasEvenDigit := true;

digit := (number div 10) mod 10;
  if digit mod 2 = 0 then
    hasEvenDigit := true;

digit := (number div 100) mod 10;
  if digit mod 2 = 0 then
    hasEvenDigit := true;

digit := (number div 1000) mod 10;
  if digit mod 2 = 0 then
    hasEvenDigit := true;

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

После запуска программы она попросит ввести четырехзначное число, а затем выведет результат - есть ли среди цифр этого числа хотя бы одна четная цифра.

Примечание: В данном примере предполагается, что пользователь вводит корректное четырехзначное число. Если вводить число с другим количеством цифр или не числовое значение, программа может работать некорректно.

Источники: --

Answer 3

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

program CheckEvenDigit;
var
  number, digit: integer;
  hasEvenDigit: boolean;
begin
  write('Введите четырехзначное число: ');
  readln(number);

hasEvenDigit := false;

// Проверяем каждую цифру числа
  digit := number mod 10; // Получаем последнюю цифру
  if digit mod 2 = 0 then
    hasEvenDigit := true;

digit := (number div 10) mod 10; // Получаем предпоследнюю цифру
  if digit mod 2 = 0 then
    hasEvenDigit := true;

digit := (number div 100) mod 10; // Получаем третью цифру
  if digit mod 2 = 0 then
    hasEvenDigit := true;

digit := number div 1000; // Получаем первую цифру
  if digit mod 2 = 0 then
    hasEvenDigit := true;

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

После запуска программы, она запросит у пользователя ввести четырехзначное число. Затем программа проверит каждую цифру числа и определит, есть ли среди них хотя бы одна четная цифра. Результат будет выведен на экран.

Примечание: Представленный код является примером и может быть доработан или оптимизирован в зависимости от требований и контекста задачи.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.