1.напечатать таблицу умножения для числа 27 в qbasic, с операторов for, print, next.2.напечать таблицу перевода долларов в рубли от 10 до 100 шагом 10.также бейсик！

3^i = 18

i = 3

ответ. 3 лампочки.

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) ) 

a1=8;

a2=a1*10=80;

a3=a2-a1=72;

b1=a2/4=20;

b2=(b1-a1)/6=2;

ответ: a1=8; a2=80; a3=72; b1=20; b2=2

var

a: array[1..100] of integer;

i,n: integer;

begin

readln(n);

writeln('исходный массив');

for i: =1 to n do

begin

a[i]: =random(50)-25;

write(a[i]: 4);

end;

writeln;

writeln('измененный массив');

for i: =1 to n do

begin

if a[i]=0 then a[i]: =n;

if a[i]< 0 then

if (a[i] mod 7=0) then a[i]: =abs(a[i])

else a[i]: =a[i]*(-2);

write(a[i]: 4);

end;

end.