[Smile188]

setConsoleOutputCP(1251);
SetConsoleCP(1251);

[Alegun]

Оффтоп:

Сообщение от M.A.D.M.A.N.

Ха, олимпиадная задачка.

Сообщение от Smile188

...я пыталась, но выдает ошибки...

Без Un_list.pas это не проверить

[icWasya]

А точно нужно находить элемент списка, у которого СЛЕДУЮЩИЙ элемент содержит нечётное число?
Может быть надо так

Код:

function Found_last_elem(L:TList):TList;
begin
  result:=L;
  while (result <> nil) do
  begin
    if (result^.info mod 2) <>0 then exit;
    result:=result^.next;
  end;
end;

И, соответственно, проверять

Код:

if Podd=nil then
  writeln('Нечетных чисел нет') else

И, кстати, если это Дельфи, то значок ^ можно не писать.

[Smile188]

Спасибо, но ошибки мне выдает , когда я пытаюсь вставить квадрат первого нечетнооо числа

[Alegun]

А квадрат вычисляете

Код:

squared := Sqr(number);

?

[lmikle]

Да, влетаешь на result=nil во втором условии. Надо так:

Код:

function Found_last_elem(L:TList):TList;
begin
result:=L;
while(result^.next<>nil)and (result^.info mod 2=0 ) do
result:=result^.next;
end;

вставка тогда как-то так:

Код:

var
  NewItem : TList;
...
  Podd:=Found_last_elem(L);
  if Podd = Nil  then writeln('No odd elements.')
  else
    begin
       New(NewItem);
       New^.Info := sqr(Podd^.info);
       New^.next := Podd^.next;
       Podd^.next := NewItem;
    end;
...