Задание 1:
S= 15
i= -1
1)s=5 ; i=4
2)s=9; i=3
3)s=12 ; i=2
4)s=14 ; i=1
5)s=15 ; i=0
6)s=15 ; i= -1
задание 2:
с
Var s:string;
k,i:integer;
begin
writeln('vvedite slovo');
readln(s);
for i := 1 to length(s) do
if (s[i]='y') and (i mod 2=0)
then inc(k);
writeln ('k=',k);
readln ;
<span>end.</span>
1.
2(10) = 10(2); (10)- индекс внизу без скоб
7(10) = 111(2);
17(10) = 10001(2);
68(10)= 1000100(2);
315(10)= 100111011(2).
2.
101(2)= 1 * 2^(2) + 0 *2^(1)+ 1 . 2^(0) = 4 + 1 = 5(10);
11101(2) = 1 *2^(4) + 1 * 2^(3) + 1 *2^(2)+ 0 *2^(1) + 1 *2^(0)= 16 + 8 + 4 + 1 = 29(10);
101010(2) = 1 *2^(5) + 0 *2^(4)+ 1*2^(3) + 0 *2^(2) + 1 *2^(1) + 0 *2^(0)= 32 + 0 + 8 + 0 + 2 + 0 = 42(10);
100011(2) = 1 *2^(5)+ 0 * 2^(4) + 0 *2^(3)+ 0 *2^(2) + 1 *2^(1) + 1 *2^(0)= 32 + 2 + 1 = 35(10).
Второе задание не поняла, тк при сложении получаются двойки, а такие числа невозможно переводить, видимо я что-то не понимаю
а третье задание вот:
11111₂-11101₂=10₂
1¹0⁰=1·2¹+0·2⁰=2₁₀
а для перевода в восьмеричную и шестнадцатеричную систему счисления требуется перевести в десятичную
следовательно
10₂=2₈
10₂=2₁₆
' 1. Даны 2 массива a и b каждый из 12 элементов.Найти R=pi*b(i)/a(max)
Function Zadanie20683579(A, B)
max = A(0)
for i = LBound(A, 1) To UBound(A, 1)
if max < A(i) then max = A(i)
next
R = 1
for i = LBound(B, 1) To UBound(B, 1)
r = r * B(i)
next
Zadanie20683579 = r / max
End Function
Function RandomArray(n, max)
ReDim A(n)
Randomize
for i = LBound(A, 1) To UBound(A, 1)
A(i) = max * Rnd
next
RandomArray = A
End Function
Msgbox Zadanie20683579(RandomArray(12, 50), RandomArray(12, 50))
