Question

Среди заданных целых чисел A,B,C,D есть хотя бы два четных? Напишите пожалуйста программу на pascal ABC

Answer 1

Ответ:

var

 a, b, c, d, kol: integer;

begin

   write('Введите четыре числа A, B, C и D через пробел: ');

   readln(a, b, c, d);

   if a mod 2 = 0 then inc(kol);

   if b mod 2 = 0 then inc(kol);

   if c mod 2 = 0 then inc(kol);

   if d mod 2 = 0 then inc(kol);

   if kol >= 2 then writeln('Среди введенных чисел есть два или более четных числа')

     else writeln('Среди введенных чисел менее двух четных');

end.

Объяснение:

Другой вариант (покороче):

var

 a, b, c, d: integer;

begin

   write('Введите четыре числа A, B, C и D через пробел: ');

   readln(a, b, c, d);

   if ((a mod 2) + (b mod 2) + (c mod 2) + (d mod 2)) <= 2

       then writeln('Среди введенных чисел есть два или более четных числа')

       else writeln('Среди введенных чисел менее двух четных');

end.

Answer 2

Конечно, вот программа на Pascal ABC, которая проверяет, есть ли хотя бы два четных числа среди A, B, C и D:

pascalCopy code
program CheckEvenNumbers;

var
  A, B, C, D: integer;

begin
  writeln('Введите четыре целых числа:');
  readln(A, B, C, D);

  if (A mod 2 = 0) and (B mod 2 = 0) then
    writeln('Среди чисел A и B есть хотя бы два четных числа.')
  else if (A mod 2 = 0) and (C mod 2 = 0) then
    writeln('Среди чисел A и C есть хотя бы два четных числа.')
  else if (A mod 2 = 0) and (D mod 2 = 0) then
    writeln('Среди чисел A и D есть хотя бы два четных числа.')
  else if (B mod 2 = 0) and (C mod 2 = 0) then
    writeln('Среди чисел B и C есть хотя бы два четных числа.')
  else if (B mod 2 = 0) and (D mod 2 = 0) then
    writeln('Среди чисел B и D есть хотя бы два четных числа.')
  else if (C mod 2 = 0) and (D mod 2 = 0) then
    writeln('Среди чисел C и D есть хотя бы два четных числа.')
  else
    writeln('Среди заданных чисел нет хотя бы двух четных чисел.');

  readln;
end.

Эта программа сначала запрашивает у пользователя четыре целых числа (A, B, C и D), а затем проверяет, есть ли хотя бы два четных числа среди них, используя операторы mod 2. Если условие выполняется для пар чисел, программа выводит сообщение о наличии хотя бы двух четных чисел.