Question

ДАЮ 50 БАЛЛОВ!!!Помогите найти ошибку в задаче.С клавиатуры вводится натуральное число N, а затем N целых чисел. Требуется посчитать сумму чисел четной длины. Под длиной числа понимается количество разрядов. В программе должна быть функция определяющая длину числа.

Answer 1

function c(a:integer):integer;

var k: integer;

begin

a:=abs(a);

k:=0;

while a>0 do

begin

k:=k+1;

a:=a div 10;

end;

c:=k;

end;

var n,x,s,i: integer;

begin

readln(n);

s:=0;

for i:=1 to n do

begin

read(x);

if c(x) mod 2=0 then s:=s+x;

end;

writeln('s = ',s);

end.

Пример:

5

12 9 -34 456 50

s = 28