Question

МНОГО БАЛЛОВ. ПАСКАЛЬ. Пользователь вводит с клавиатуры целое число а. Если это число является четным, вывести на экран фразу "Вы ввели четное число", в другом случае "Вы ввели нечетное число"

Answer 1

var a:integer; 
begin 
read(a); 
if (a mod 2=0) then writeln('Вы ввели четное число')   
else writeln('Вы ввели нечетное число'); 
end.

Answer 2

Для решения данной задачи на языке Паскаль можно использовать условную конструкцию if-else. Вот пример кода, который выполняет указанную задачу:

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

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

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