Даны две последовательности целых чисел: a_1,a_2,…,a_8 и b_1,b_2,…,b_8 . найти количество четных чисел в первой из них и количество нечетных во второй. (определить функцию, позволяющую распознавать четные числа).

// код на паскале

var

  a, b: array [1 .. 8] of longint;

  i, ans1, ans2: byte;  

function check(var x: longint): boolean; // функция проверки числа на четность

begin

  if x mod 2 = 0

    then check : = true

  else

    check : = false;

end;

begin

  ans1 : = 0;

  ans2 : = 0;

  for i : = 1 to 8 do

  begin

    read(a[i]);   //читаем число а_і

    if check(a[i]) then //если четное, то

      inc(ans1);   //увеличиваем ответ_1 на 1

  end;

  for i : = 1 to 8 do

  begin

    read(b[i]);   //читаем число b_i

    if not check(b[i]) then   // если нечетное, то

      inc(ans2); // увеличиваем ответ_2 на 1

  end;

  writeln('количество четных чисел в первой последовательности = ', ans1);

  writeln('количество нечетных чисел во второй последовательности = ', ans2);

end.

фонетика-это раздел науки о  языке, в котором изучаются звуки и их чередования, а также ударе­ние, интонация, слогораздел.

имя существительное-это самостоятельная часть речи,   которая обозначает предмет и отвечает на вопросы  кто? что?

глагол-это самостоятельная часть речи,    которая обозначает действие и  отвечает на вопросы что делать? что сделать?

тяжелая промышленность-это  группа отраслей промышленности, производящих преимущественно средства  производства, к которой относятся почти вся добывающая промышленность и часть обрабатывающей промышленности.

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