<em>1. Современное решение, когда можно решить "в одну строку"</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
.Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
.Select(c->c.ToDigit).Sum)
end.
<u>Пример</u>
252 337 105
S=24
<em>2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)</em>
var
m,i,j,s,d:integer;
begin
s:=0;
for i:=1 to 3 do begin
Read(m);
for j:=1 to 3 do begin
d:=m mod 10;
if d mod 2<>0 then s:=s+d;
m:=m div 10
end
end;
Writeln('S=',s)
end.
Ответ B.
Пояснение:
<span>01110100 во 2 = 116 в 10 = буква t в таблице ANSI
</span>01100101 во 2 = 101 в 10 = буква e <span>в таблице ANSI</span>
01110011 во 2 = 115 в 10 = <span>буква </span>s в таблице ANSI
01110100 во 2 = 116 в 10 = <span>буква </span>t <span>в таблице ANSI</span>
#Python 3.6.1
def find_double(items):
L = len(items)-1
for i in range(L):
for j in range(L-i):
if items[i] == items[j+i+1]:
return i
return L+1
print("Введите элементы через пробел:")
a = input().split()
print(a)
print(find_double(a))
Вот все ответы короче
<span>3.ИСТОЧНИК </span><span>4.ПРИЁМНИК </span><span>5.ОБРАБОТКА </span><span>6.ИНФОРМАЦИЯ </span><span>8.АЛФАВИТ </span><span>1.БИТ </span><span>2.КОДИРОВАНИЕ </span><span>7.ЯЗЫК </span>