Program prog;
uses crt;
var a:array[1..201] of integer;
s,i: integer;
begin
clrscr;
for i:=1 to 201 do
a[i]:=i+100;
for i:=1 to 201 do begin
if a[i] mod 2=1 then begin
s:=s+a[i];
write(a[i],' ');
end;
end;
writeln; writeln;
writeln('Сумма s = ', s);
end.
Ответ:
a = float(input("Введите в каких единицах измерения будите вводить числа. 1 - килобайты, 2 - мегобайты, 3 - гигобайты... (терабайт, петабайт, эксабайт, зеттабайт, йоттобайт) "))
b = float(input("введите число "))
vid = float(input("введите в какие единицы хотите перевести число (см первую запись) "))
d = 1024**a * b
er = 1024**vid
print(d/er )
Объяснение:
(5,5), (8,8), (9,8), (11,6), (12,7), (12,7), (11,7),
(11,2), (9,2), (9,3), (10,3), (10,4), (7,4), (7,2),
(5,2), (5,3), (6,3), (6,9), (7,9), (7,8), (2,8),
(2,9), (3,9), (3,6), (4,5)
1) Записать число в двоичной системе счисления, и степени двойки справа налево: 16,8,4,2,1
2) Пройдитесь по каждой цифре двоичного числа. Если эта цифра 1, запишите
соответствующую степень двойки под цифрой. Если эта цифра 0, запишите
под цифрой 0.
т.е. 16 в первой степени, 8 в нулевой, 4 в первой, 2 в нулевой, 1 в первой
3) сложить полученные результаты
<span>
10101 ² = 16^1+8^0+4^1+2^0+1^1= 16+0+4+0+1=21
^ - это возведение в степень
</span>