На вход программе подаётся последовательность целых чи- сел, каждое из которых

На вход программе подаётся последовательность целых чи- сел, каждое из которых не превосходит по модулю 10000 . Числа за- писаны в одной строке через пробел. Признак конца ввода (в последо- вательность не заходит) число 2*109 . Нужно отыскать и вывести мак- симальное нечётное произведение 2-ух частей этой последова- тельности, которые размещаются друг от друга на расстоянии не ме- нее 4 (между ними обязано быть как минимум три других элемента последовательности). Гарантируется, что в последовательности будет не наименее пяти частей. Если искомого нечётного произведения не существует, то вывести извещенье IMPOSSIBLE

Задать свой вопрос
1 ответ
Uses Crt; Const Pend = 2100000000; Type tR = ^tRs; tRs = Record s : String; n : tR; end; Var Pb,Pe,P : tR; Ch : Char; St : String; Begin Pb:=nil; Writeln(Последовательность: ); Repeat St:=; Repeat Repeat Ch:=ReadKey Until Ch in [0..9, ,-]; Write(Ch); If Chlt;gt; then St:=St+Ch; Until Ch= ; If Stlt;gt;Pend then Begin New(P); P^.s:=St; P^.n:=nil; If Pb=nil then Pb:=P else Pb^.n:=P; Pe:=P; end; Until St=Pend; ... end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт