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: integer;
  digit2: integer;
  isEven: boolean;
  isEvenSecondDigit: boolean;

begin
  write('Введите четырехзначное число: ');
  readln(number);
  
  isEven := (number mod 2 = 0);
  
  digit2 := (number div 10) mod 10;
  isEvenSecondDigit := (digit2 mod 2 = 0);
  
  writeln('Число ', number, ' является четным: ', isEven);
  writeln('Вторая цифра числа ', number, ' является четной: ', isEvenSecondDigit);
  
  readln;
end.

В этой программе мы используем оператор mod для проверки, является ли число четным (если результат деления числа на 2 равен нулю, то число четное) и чтобы получить вторую цифру числа (мы сначала делим число на 10, чтобы сдвинуть его разряды вправо, а затем применяем оператор mod 10, чтобы получить остаток от деления на 10, который и будет второй цифрой числа).

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