Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.12.2016, 21:01   #1
igormel
Пользователь
 
Регистрация: 11.11.2016
Сообщений: 22
По умолчанию Объясните, что делает этот код на Pascal

Код:
var a:array [1..100] of longint;
n,i,f,nn:longint;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
f:=0;
for i:=2 to n do
begin
if f<>2 then 
begin 
if ((a[i-1] mod 2 = 1)and(a[i] mod 2 = 0)) or ((a[i-1] mod 2 = 0)and(a[i] mod 2 = 1)) then 
begin
f:=f+1;
if f=2 then nn:=i;
end;
end;
end;
for i:=1 to n do
write(a[i],' ');
writeln;
if f<>2 then writeln('net takih par') else writeln(nn-1,' ',nn);
end.


Мне нужно знать, что эта программа делает

Последний раз редактировалось Вадим Мошев; 29.12.2016 в 21:27.
igormel вне форума Ответить с цитированием
Старый 29.12.2016, 21:28   #2
igormel
Пользователь
 
Регистрация: 11.11.2016
Сообщений: 22
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Объясните, что делает этот код и напишите, пожалуйста, несколько комментариев narekkg Помощь студентам 0 12.06.2015 18:07
Что это ? Что и как делает этот код? Dimka-novitsek Общие вопросы C/C++ 1 03.05.2015 01:57
Что делает этот код? Alex_sim Общие вопросы C/C++ 10 03.03.2010 23:45
Подскажите пожалуйста что делает этот код SlashMan JavaScript, Ajax 3 10.01.2010 22:41
Что делает этот код? lucky Общие вопросы Delphi 4 17.06.2009 17:02