Var
i,n,t,s:integer;
begin
Read(n);
i:=0;
repeat
Read(t);
i:=i+1;
if t mod 2<>0 then s:=s+t
until i=n;
Writeln(s)
end.
Б. С. К. З.
____________________________
квадрат - - + -
____________________________
круг. - + - -
____________________________
ромб. + - - -
____________________________
треуг. - - - +
____________________________
dim a,b,n,s as integer
input a
b=a
n=0
x=0
do
b=b\10
x=b mod 10 +x ' сумма цифр
n=n+1 'сколько цифр
loop until b<>0
print n, x
if a mod 2 = 0 then print ("четное") else print ("нечетное")
a=a mod 100 ' сколько сотен
print a
'я не помню точно синтаксис фуникций input и print, так что проверь
Известно, что с помощью N бит можно закодировать 2N<span> различных чисел. Поскольку 2</span>6<span> < 87 < 2</span>7<span> и для каждого спортсмена число бит одинаково, то для записи каждого из 87 номеров необходимо 7 бит памяти. Поскольку промежуточную отметку прошли 64 участника, то информационный объем сообщения составит 64⋅7 = 448 бит = 56 байт.</span>