2^i=N
Используем 3 бит на один символ
3*11*20=660 бит
Не ясно на каком именно бейсике это написано, но у меня есть только VBS
Так что форматирование может не совпасть
Код
Sub Zadanie
s = ""
n = 4
l = 2
for i = 1 to n
for j = 1 to n
if j=1 or i=1 or i=n or j=n then
s = s & "0"
else
l = l + 1
s = s & l mod 10
end if
next
s = s & vbNewLine
next
MsgBox (s)
End Sub
Вывод
0000
0340
0560
0000
Begin
kk:=0;
for i:=1 to 15 do begin
a[i]:=random(1)+20;
if(a[i]>10)then inc(kk);
end;
end;
Всего 128 мест, значит хватит 7 бит
2^7 = 128
Var<span> a,f: real;</span><span> n,i,g: integer;</span>begin<span> read(a,n);</span><span> if n<0 then begin</span><span> g:=n;</span><span> n:=-n;</span><span> end;</span><span> f:=1;</span><span> for i:=1 to n do</span><span> f:=a*f;</span><span> if g<0 then write(1/f)</span><span> else write(f);</span><span> readln;</span><span> readln</span><span>end.</span><span> </span>