Определять номера, образующие вторую пару, для которых одно из чисел является четным числом, а второе нечетным - 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, то выводится сообщение
---.