Определите значения переменных после выполнения фрагмента алгоритма. вверху написано a:=1 b:=11 1)a
2)b

pascal:

program strings;

uses crt;

var i,open,close: integer;

a: string;

begin

open: =0;

end: =0;

clrscr;

write('введите строку: '); readln(a);

for i: =1 to length(a) do

begin

if a[i]='(' then open: =open+1;

if a[i]=')' then close: =close+1;

end;

writeln('открывающихся скобок: ', open, ' штук');

writeln('закрывающихся скобок: ', close, ' штук');

readln;

end.

20с7f = 2* 16^4 + 0 * 16^3 +12 * 16 ^2 + 7 * 16^1 + 15 * 16^0=

= 2 * 65536 + 0 + 12 * 256 + 7 * 16 + 15 = 131072 + 3072 + 112 + 15 = 134271(10)

f3ao6/4 - если я правильно понял это условие, то перевести в 10 систему и разделить на 4?

f3ao6 = 15 * 16^4 + 3 * 16^3 + 10 * 16^2 + 0 * 16^1 + 6 * 16^0 =

= 15 * 65536 + 3 * 4096 + 10 * 256 + 0 + 6 = 983040 + 12288 + 2560 + 6 = 997894(10)

997894 : 4 = 249473,5 (10)

1)

var

a: array[1..50]of real;  

i,n: byte;

sn: real;  

begin 

  write('введите количество элементов массива: '); readln(n);

for i: =1 to n do

begin

write('a[',i,']= '); readln(a[i]);

end;

clrscr;  

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

/* вывод в строчку через запятую*/

for i: =1 to n-1 do write(a[i]: 5: 3,', '); write(a[n]: 5: 3,'.');

/*простой вывод в столбик*/

for i: =1 to n do writeln(a[i]: 5: 3);

/*сумма элементов, стоящих на четных местах*/ 

sn: =0;

while i< =n do

begin

  if odd(i)=false then sn: =sn+a[i];

  i: =i+1;

end;  

/*вывод ответа*/

writeln('сумма элементов, стоящих на четных местах: ',sn: 5: 3);

end. 

2)

var

a: array[1..50]of real;

i: byte;  

begin

  write('введите количество элементов массива: '); readln(n);

for i: =1 to n do

begin

write('a[',i,']= '); readln(a[i]);

end;

clrscr;  

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

/* вывод в строчку через запятую*/

for i: =1 to n-1 do write(a[i]: 5: 3,', '); write(a[n]: 5: 3,'.');

/*количество элементов кратных 3*/

kol: =0;  

for i: =1 to n do

if a[i] mod 3 =0 then kol: =kol+1;  

/*вывод ответа*/

writeln('количество элементов массива, кратных трем: ',kol);

end. 

один пиксель может содержать любой из 256 = 2^8 цветов => для кодирования 256 цветов нужно 8 бит => для кодирования одного пикселя нужно 8 бит.