лиди заходят в зал , рассказывают кто они откуда и дарят подарки , крутят барабан , получают призы. Я точно не знаю лучьше позвони или спроси у своей бабушки))
1)01001100=0•8+1•8+0•8+0•8⁴+1•8³+1•8²+0•8¹+0•8°=0+262144+512+8=262664
2)00010101=0•8+0•8+0•8+1•8⁴+0•8³+1•8²+0•8¹+1•8°=0+0+0+4096+0+64+0=4160
Var x, y: integer;
begin
write('x = ');
readln(x);
if x <= 0 then y := 0;
if ((x > 0) and (x <= 1)) then y := x;
if x > 1 then y := x * x;
writeln(y);
end.
При x = 8, y = 64.
Sub Main
dim n as integer
dim k as integer
dim p as integer
dim min as integer
dim s as string
n=inputbox("Сколько будет чисел?")
dim a(n)
for i=1 to n
<span> a(i)=inputbox(i & " число")
</span><span> s=s & a(i) & "; "
</span>next i
min=a(1)
k=1
for i=2 to n
<span> if a(i)<min then
</span><span> min=a(i)
</span><span> k=i
</span><span> end if
</span>next i
p=a(k+1)
for i=k+2 to n
<span> p=p*a(i)
</span>next i
s=s & "p=" & p
msgbox(s)
<span>End Sub</span>