Var
S: string;
i: byte;
tmp: boolean;
begin
write('Введите строку: '); readln(S);
for i := 1 to Length(S) do
begin
if ((S[i] = '*') and (tmp = false)) then
begin
S[i] := '-';
tmp := true;
end;
if tmp = true then S[i] := '-';
end;
writeln(S);
end.
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a.Select(t -> Abs(t)).Max.Println
end.
<h2>n= 13</h2><h2>24 -14 9 -6 43 -4 15 -46 40 -14 -32 45 32</h2><h2>46 </h2>
1. Переведем все числа в десятичную систему счисления
X=110011₂ = 1∙2⁵+1∙2⁴+0∙2³+0∙2²+1∙2¹+1∙2⁰ = 32+16+0+0+2+1 = 51
Z=61₈ = 6∙8¹+1∙8⁰ = 48+1 = 49
W=2F₁₆ = 2∙16¹+15∙16⁰ = 32+15 = 47
Ответ: W,Z,X
2. а) Переведем 31₅ в семеричную систему счисления.
Для это сначала переведем в 10чную: 31₅ = 3∙5¹+1∙5⁰ = 15+1 = 16
А потом уже в 7-чную: 16÷7=2 остаток 2.
Получается 31₅=22₇
Значит ,равенство верно.
б) Переведем 11₈ в троичную систему счисления.
11₈ = 1∙8¹+1∙8⁰ = 8+1 = 9 (переводим в десятичную)
9:3=3 остаток 0
3:3=1 остаток 0
11₈ в троичной равен 100₃, следовательно,
равенство 11₈ не равен 21₃
3) a)3*x²+0*x¹+2*x⁰=149
3*x²+2=149
3*x²=147
x²=49
x=7
б)1*x⁴+0*x³+0*x²+0*x¹+2*x⁰=83
x⁴+2=83
x⁴=81
x=3
Геном - наследственный материал, заключенный в клетке организма. Геном человека построен из ДНК.
Вывод: вариант б
