Сформировать список целых чисел и посчитать сумму нечетных чисел

[bwitcher]

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

program N72927501; 
var A:longint; 
    s:byte; 
begin 
  write('Введите число: '); 
  readln(A); 
  s := 0; 
  A := abs(A); 
  while A > 0 do 
  begin 
    if not odd(A) then {или if A mod 2 = 0 then} 
      inc(s, A mod 10); {или s := s + A mod 10;} 
    A := A div 10 
  end; 
  writeln('Сумма чётных цифр = ', s); 
  readln 
end.

не поможете оптимизировать под такое условие:
Сформировать список целых чисел и посчитать сумму четных чисел (очередь)
заранее спасибо

привет.
не поможете код для следующей задачи
Подсчитать сумму всех нечетных чисел от 101 до 301
переделать для
Сформировать список целых чисел и посчитать сумму нечетных чисел (линейные списки)

uses crt;
var sum,i:integer;
begin
sum:=0;
for i:=101 to 301 do begin
if i mod 2=0 then sum:=sum+i;
end;
writeln('Cумма нечётных элементов=  ',sum);
end.

заранее спасибо

[Stilet]

Если не ошибаюсь то так:

uses crt;
type item=record data:integer; next:^item; end;
var sum,i:integer; itp,it,head:^item;
begin
sum:=0; head=nil; it:=nil;
for i:=101 to 301 do begin
 new(it); if head=nil then head:=it; it^.data:=i;
 if itp=nil then itp:=it else begin itp^.next=it; itp:=it; end;
 if i mod 2=0 then sum:=sum+i;
end;

writeln('Cумма нечётных элементов=  ',sum);

it:=head;
for i:=101 to 301 do begin
 head:=it^.next;
 dispose(it);
 it:=head;
end;

end.

[s-andriano]

1. Переделка задачи под другое условие не является оптимизацией.
2. Оптимизировать можно по объему кода, по скорости выполнения, по объему требуемой памяти, но никак не под то условие, которое Вы написали.

Кстати, думаю, что в Вашем задании основное - это умение работать с очередью, реализованной посредством списка.
А потому приведенный Вами код, хоть и вычисляет сумму, но не может быть взят за основу для Вашей задачи.

[bwitcher]

спасибо большое!
а можно еще то же самое с линейных списков на очередь переделать?

[s-andriano]

А что такое линейный список, что такое очередь и чем они отличаются?

[bwitcher]

Сообщение от s-andriano

А что такое линейный список, что такое очередь и чем они отличаются?

Линейный однонаправленный список — это структура данных, состоящая из элементов одного типа, связанных между собой.
О́чередь — структура данных с дисциплиной доступа к элементам «первый пришёл — первый вышел» (FIFO, First In — First Out). Добавление элемента (принято обозначать словом enqueue — поставить в очередь) возможно лишь в конец очереди, выборка — только из начала очереди (что принято называть словом dequeue — убрать из очереди), при этом выбранный элемент из очереди удаляется.

[s-andriano]

Замечательно, а ответ на третий вопрос?