//PascalABC.NET 3.2 сборка 1318
Const
gal=4,54609;
Var
x:real;
begin
readln(x);
writeln(x*gal);
end.
//2
Var
b1,q:real;
n:integer;
begin
readln(b1,q,n);
if (b1=0) or (q=0) then
begin
writeln('b1=0 or q=0');
exit;
end
else
if q=1 then
begin
writeln('Sum=',b1*n);
writeln('Bn=',b1);
end
else
begin
Writeln('Sum=',b1*(1-power(q,n))/(1-q));
Writeln('Bn=',b1*power(q,n-1));
end;
end.
<h3>3. а) 10011₂ = 1 * 2⁴ + 0 * 2³ + 0 * 2² + 1 * 2¹ + 1 * 2⁰ = 16 + 0 + 0 + 2 + 1=19</h3><h3>б) 254₈ = 2*8²+5*8¹+4*8⁰=128+40+4=172</h3><h3>4. а)18₁₀</h3><h3>б)4896₁₀</h3><h3>5. Только 2 ответ верный.</h3>
Держи . Напишите минимум 20 символов. Напишите минимум 20 символов.<span> Напишите минимум 20 символов</span>