Var
N: integer;
s: string;
i,c: byte;
begin
ReadLn(N);
Str(N,s);
c:=0;
for i:=1 to Length(s) do
if s[i] in ['0','2','4','6','8'] then
Inc(c);
WriteLn(c);
end.
В данном случае источником информации можно рассмотреть как Себя так и телефон. Если Я источник информации, то кодирующим устройством будет телефон, каналом связи - электромагнитные волны, декодером - телефон друга, приемником - друг.
Ультра тонкий дизайн. с 8 ядер процессором. оперативной памятью 16 гиг. full HD или 4k изображения.
ПО system of people brain. SPB. система как мозг человека
Треугольников 40
и 10 квадратов