1) Ответ:3
25/2 11001
12(1)
6(0)
3(0)
1(1)
2)Ответ 4
18/8 101
8(1)
1(0)
Var a:array [1..12] of integer;
<span>i,sum:integer; </span>
<span>begin </span>
<span>sum:=0; </span>
<span>randomize; </span>
<span>for i:=1 to 12 do begin </span>
<span>a[i]:=random(10,99); </span>
<span>if a[i] mod 2 =0 then sum:=sum+a[i]; </span>
<span>end; </span>
<span>writeln('Сумма четных чисел массива = ',sum); </span>
<span>end.</span>
//PascalABC.NET
begin
readseqinteger('Введите 15 чисел:',15).Where(x -> Odd(x)).Average.Println;
end.
Просто,скачай другую программу.Или же зайди,в настройки и нажми на яркость.
Материальная - машина и вселенная
Нематериальная - запись формулы
Смешанная - школа и армия