Question

Ввести два целых числа. Определить, какое из них четное. Паскаль!

Answer 1

В программе не учитано, что оба числа могут быть четные/нечетные.

program vld;

var

 a,b : integer;

 begin

  readln(a,b);

  if a mod 2 = 0 then

    write('Первое число четное');

  if b mod 2 = 0 then

    write('Второе число четное');

 end.

Answer 2

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

pascalCopy code
program EvenNumber;

var
  num1, num2: Integer;

begin
  writeln('Введите два целых числа:');
  readln(num1, num2);

  if (num1 mod 2 = 0) then
    writeln('Первое число ', num1, ' четное.')
  else
    writeln('Второе число ', num2, ' четное.');
end.

Скопируйте этот код в среду разработки Паскаля и выполните его. Программа запросит вас ввести два целых числа, после чего определит, какое из них четное.