Определять номера, образующие вторую пару, для которых одно из чисел является четным числом, а второе нечетным - 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.
Объяснение кода листинга программы
- Объявлены три переменные типа integer: a, b, k.
- Объявлена булева переменная f.
- Программа считывает два числа и проверяет их четность и нечетность.
- Если четное и нечетное числа образуют пару, то увеличивается счетчик k.
- Если k равно 2, то переменная f принимает значение true.
- Если f равно true, то выводится второе число и первое число.
- Если f равно false, то выводится сообщение
---
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д