программа здесь: http://rghost.ru/43527025
var chislo, summa, proizv:integer;
begin
summa:=0;
proizv:=1;
repeat
Writeln('Input number: ');
Readln(chislo);
if chislo mod 2 = 0 then summa:=summa+chislo;
if chislo <>0 then proizv:=proizv * chislo;
until chislo=0;
Writeln('a) Sum = ', summa);
Writeln('b) Proizvedenie = ', proizv);
readln;
end.
<span><span><span> 1
</span><span>
1
2
</span><span>
2
4
</span><span>
3
8
</span><span>
4
16
</span><span>
5
32
</span><span>
6
64
</span><span>
7
128
</span><span>
8
256
</span><span>
9
512
</span><span>
10
1024
</span></span></span>
3*log(pow(pow(sin(x),2)+2),1/5)
<span>г) совокупность способностей, знаний, умений и навыков, связанных с пониманием закономерностей информационных процессов в природе, обществе и технике, с современными информационными и коммуникационными технологиями, со способностью и умением использовать средства информационных и коммуникационных технологий при решении задач своей практической деятельности;</span>