ДАЮ 50 БАЛЛОВ!!!
Помогите найти ошибку в задаче.
С клавиатуры вводится натуральное число N, а затем N целых чисел. Требуется посчитать сумму чисел четной длины. Под длиной числа понимается количество разрядов. В программе должна быть функция определяющая длину числа.
Помогите найти ошибку в задаче.
С клавиатуры вводится натуральное число N, а затем N целых чисел. Требуется посчитать сумму чисел четной длины. Под длиной числа понимается количество разрядов. В программе должна быть функция определяющая длину числа.
Answers & Comments
Verified answer
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
https://znanija.com/task/31870688