Question

Дано 4-хзначное число. Используя логические величины, ответить на вопросы: является ли число четным; является ли вторая цифра числа четной. программа:PascalABC,NET помогите срочно пж!!

Answer 1

 var a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 2 =0 then writeln ('Число чётное') else writeln ('Число нечётное');
if ((a div 100) mod 2=0) then writeln ('2-я цифра чётная') else writeln ('2-я цифра нечётная');
end.

Answer 2

Конечно, я помогу вам с этой программой на PascalABC.NET. Вот код, который выполняет задачу:

pascalCopy code
program CheckNumber;

var
  number, secondDigit: integer;
  isEven, secondDigitIsEven: boolean;

begin
  // Вводим 4-хзначное число
  write('Введите 4-хзначное число: ');
  readln(number);
  
  // Проверяем, является ли число четным
  isEven := (number mod 2 = 0);
  
  // Вычисляем вторую цифру числа
  secondDigit := (number div 100) mod 10;
  
  // Проверяем, является ли вторая цифра четной
  secondDigitIsEven := (secondDigit mod 2 = 0);
  
  // Выводим результаты
  writeln('Число четное: ', isEven);
  writeln('Вторая цифра четная: ', secondDigitIsEven);
end.

Эта программа сначала запрашивает у пользователя ввод 4-хзначного числа. Затем она проверяет, является ли число четным, используя оператор деления по модулю (mod). После этого программа вычисляет вторую цифру числа и проверяет, является ли она четной.

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