ДАЮ 50 БАЛЛОВ!!!
Помогите найти ошибку в задаче.
С клавиатуры вводится натуральное число N, а затем N целых чисел. Требуется посчитать сумму чисел четной длины. Под длиной числа понимается количество разрядов. В программе должна быть функция определяющая длину числа.
Приложения:
![](https://st.uroker.com/files/4a6/4a6acd3cb6b7aa4179d011b37418187a.jpg)
Ответы
Ответ дал:
0
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
Ответ дал:
0
Помогите пожалуйстааааа с заданием по информатике
https://znanija.com/task/31870688
https://znanija.com/task/31870688
Ответ дал:
0
Здравствуйте, можете пожалуйста помочь с доказательством тождества по информатике?
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад