Const n = 20;
var a: array[1..n] of real;
i: integer;
begin
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if(i mod 3 <> 0) then write(a[i], ' ');
<span>end.
const n = 18;
var a: array[1..n] of integer;
i, max, fir: integer;
begin
max := 1;
fir := 0;
for i := 1 to n do
begin
read(a[i]);
if(fir = 0) and (a[i] > 0) then fir := i;
if(a [i] < 0) and (a[max] < a[i]) then max := i;
end;
i := a[max];
a[max] := a[fir];
a[fir] := i;
for i := 1 to n do
write(a[i], ' ');
<span>end.</span></span>
Истинные утверждения: Б,д,з,и,к,л
-17 = 1 0010001
Первая единица - знак числа"-"
Ответ:
a = float(input("Введите в каких единицах измерения будите вводить числа. 1 - килобайты, 2 - мегобайты, 3 - гигобайты... (терабайт, петабайт, эксабайт, зеттабайт, йоттобайт) "))
b = float(input("введите число "))
vid = float(input("введите в какие единицы хотите перевести число (см первую запись) "))
d = 1024**a * b
er = 1024**vid
print(d/er )
Объяснение:
