Question

Напишите программу, которая принимает число, а на выходе возвращает ноль, если число четное и само число, если оно нечетное. Pascal

Answer 1

Program zadacha; var a:integer; begin writeln('vvedite chislo'); readln(a); if a mod 2 = 0 then writeln (0) else writeln(a); end.

Answer 2

Вот пример программы на языке Pascal, которая принимает число и возвращает ноль, если число четное, и само число, если оно нечетное:

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

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

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