program raf105;
var a,b,sum,nsum,nkol:integer;
sari:real;
begin
write('Введите число: ');
readln(a);
while a<>0 do
begin
b:= a mod 10;
a:= (a-b) div 10;
sum:= sum+b;
if (b mod 2)<>0
then
begin
nsum:= nsum+b;
nkol:= nkol+1;
end;
end;
sari:= nsum/nkol;
writeln('Сумма всех цифр в числе: ',sum);
writeln('Среднее арифметическое нечётных цифр в числе: ',sari);
end.
<u><em>Язык программирования PascalABC</em></u>
<span>Наука о методах обеспечения конфиденциальности "криптография"
1024*768*16=12 582 912 бит (1 536 Кбайт)</span>
<span><span>F = (¬A·¬B·C)v(¬A·B·¬C)v(¬A·B·C)v(A·¬B·¬C)v(A·B·C)
</span></span><span>Предлагаю Excel программку, которая эту функцию строит автоматически.
</span>
<span>1. B)
1;</span>
<span>2. B)
вопрос;</span>
3. С) трекант;
<span>
</span>