Question

20 баллов! Помогите, пожалуйста. Написать программу Паскаль. Вводится число. Вывести четность числа.

Answer 1

Ответ:

program Test

var

 n: Integer;

begin

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

 ReadLn (n);

 if n mod 2 = 0 then

   WriteLn ('четное')

 else

   WriteLn ('не четное');

 ReadLn;

end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая определяет четность числа, введенного пользователем:

pascalCopy code
program CheckEvenOdd;
var
  number: integer;
begin
  writeln('Введите число: ');
  readln(number);
  
  if number mod 2 = 0 then
    writeln('Число ', number, ' является четным.')
  else
    writeln('Число ', number, ' является нечетным.');
  
  readln;
end.

В этой программе мы сначала запрашиваем у пользователя ввод числа с помощью readln(number). Затем мы проверяем, делится ли введенное число на 2 без остатка, используя оператор mod. Если остаток от деления равен нулю, то число является четным, и программа выводит соответствующее сообщение. В противном случае, число считается нечетным, и программа выводит другое сообщение.

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