Запишем представление восьмеричного числа в двоичной системе, группируя двоичные разряда по три (два в третьей степени равно 8)
111 100 000 000(2) = 7400(8).
<em>1)</em> Program p1;
Uses crt;
Var A: array [1..9] of integer;
i: integer;
Begin clrscr;
for i:=1 to 9 do
begin
case i of
1,4,7: a[i]:= random (99-10+1)+10;
2,5,8: (random (999-100+1)+100) div i;
3,6,9: (random (99-10+1)+10) mod 10;
end;
write (a[i],' ');
end;
readln;
readkey;
end.<em>
</em>2)<em> </em>Program p2;
Uses crt;
Var A: array [1..15] of integer;
i: integer;
Begin clrscr;
Writeln ('Введите первые 2 элемента массива');
Read (a[1],a[2]);
for i:=3 to 15 do
begin
a[i]:=(a[i-1]-a[i-2])+i;
write (a[i],' ');
end;
readln;
readkey;
end.
Input a, b
y=((a+b*b)^(1/7)/3-4*Sqr(a)/(a+b*b))^3+a*b/(4*Sqr(a))
Print y
Sub Prime()
Dim k As Integer, x As Double
k = 0
Do
x = CDbl(InputBox("Введи число, ноль завершит работу"))
If x = 0 Then Exit Do
k = k + 1
Loop
MsgBox "Введено чисел: " & CStr(k)
End Sub