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

Узнай цену своей работы

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

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

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

textual
Листинг программы
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.

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

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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

13   голосов , оценка 4.077 из 5
Похожие ответы