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

@stalkersemeckii · Регистрация: 21.12.2015

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

@vint-81 · 21.12.2015, 09:37

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.

@stalkersemeckii 0 / 0 / 0 Регистрация: 21.12.2015 Сообщений: 6
		1
	Определять номера, образующие вторую пару, для которых одно из чисел является четным числом, а второе нечетным 21.12.2015, 00:36. Показов 1499. Ответов 1 Метки нет (Все метки) Несколько школьников выстроились в шеренгу. Для каждого школьника известен его день рождения. Требуется Определять номера соседей, образующих вторую пару соседей, для которых одна из дат является четным числом, а вторая - нечетным. 0

Опции темы

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

Решение