7x^2-3x+6=0
D=b^2-4ac=9-4*7*6=-159
рівняння розв'язків немає
Var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do A[i]:=i*3;
S:=0;
for i:=1 to 100 do S:=S+A[i];
Writeln('сумма элементов массива= ',s);
<span>end.
или без лишнего цикла можно так
var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do
begin
A[i]:=i*3;
S:=S+A[i];
end;
Writeln('сумма элементов массива= ',s);
<span>end.</span></span>
<span>
1. 56</span>₁₀-> X₂
<span><span>56/2=28 остаток 0
</span><span>
28/2=14 остаток 0
</span>
<span>
14/2=7 остаток 0
</span>
<span>
7/2=3 остаток 1
</span>
<span>
3/2=1 остаток 1
</span>
1/2=0 остаток 1
</span>56₁₀ = 111000₂
2.
176₁₀-> X₂<span>
<span><span>176/2=88 остаток 0
</span><span>
88/2=44 остаток 0
</span>
<span>
44/2=22 остаток 0
</span>
<span>
22/2=11 остаток 0
</span>
<span>
11/2=5 остаток 1
</span>
<span>
5/2=2 остаток 1
</span>
<span>
2/2=1 остаток 0
</span>
<span>
1/2=0 остаток 1
</span>
</span></span>176₁₀ = 10110000₂
<span>3.
</span>10001₂->X₁₀
2^4+2^0=17
10001₂ = 17₁₀
4.
101011₂->X₁₀
2^5+2^3+2^1+2^0=43
10001₂ = 43₁₀
var
i, b: integer;
begin
b := 0;
for i := 1 to 100 do
if (i mod 2 <> 0) then b := b + i;
writeln(b);
end.