Определять номера, образующие вторую пару, для которых одно из чисел является четным числом, а второе нечетным - Free Pascal

Формулировка задачи:

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

Решение задачи: «Определять номера, образующие вторую пару, для которых одно из чисел является четным числом, а второе нечетным»

Листинг программы

var a,b,k:integer;
    f:boolean;
begin
  read(a);k:=0;f:=false;
  while not f and not eoln do
   begin
    b:=a;
    read(a);
    if odd(a+b) then inc(k);
    if k=2 then f:=true
   end;
  if f then writeln(b,' ',a)
       else writeln('---')
end.

Объяснение кода листинга программы

Объявлены три переменные типа integer: a, b, k.
Объявлена булева переменная f.
Программа считывает два числа и проверяет их четность и нечетность.
Если четное и нечетное числа образуют пару, то увеличивается счетчик k.
Если k равно 2, то переменная f принимает значение true.
Если f равно true, то выводится второе число и первое число.
Если f равно false, то выводится сообщение ---.

Оцени полезность:

13 голосов , оценка 4.077 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы