Вариант 1. 1. чему равен информационный объем слова информация а) 10 бит б) 10 байт в) 1 кбит г) 80 байт 2. какой из графических редакторов не относится к растровым? а) paint б) adobephotoshop в) gimp г) openoffice draw 3. какое расширение имеют файлы, созданные в программе ms word? а) txt б) rtf в) doc г) hlp 4. определите информационный объем высказывания ж. ж. руссо: тысячи путей ведут к заблуждению, к истине – только один. а) 92 бита б) 220 бит в) 456 бит г) 512 бит 5. сколько информации отводится на 1 символ в международном стандарте кодировки unicode? а) 1 байт б) 2 байта в) 1 кбайт г) 2 кбайта 6. мощность алфавита (т.е. количество различных символов) равна 256. сколько кбайт потребуется для сохранения 160 страниц текста, содержащего в среднем по 192 символа на каждой странице? а) 10 б) 20 в) 30 г) 40 7. в процессе редактирования текста изменяется: а) размер шрифта; б) параметры абзаца; в)последовательность символов, слов, абзацев; г)параметры страницы. 8. сколько существует различных кодировок букв алфавита? а) одна; б) две (ms dos,windows); в)три (ms dos,windows, macintosh); г) пять (ms dos, windows,macintosh, кои-8, iso). 9. палитрами в графическом редакторе являются: а) линия, круг, прямоугольник; б) выделение, копирование, вставка; в) карандаш, кисть, ластик; г) наборы цветов. 10. в электронных таблицах выделена группа ячеек a1: с2. сколько ячеек входит в эту группу? а) 6; б) 5; в) 4; г) 3. 11. результатом вычисления в ячейке с1 будет: а b c 1 10 =a1/2 =a1+b1 а) 20; б) 15; в) 10; г) 5.
Program MashaLukianova;
uses crt;
const n=12;
var
mas:array[1..n] of integer;
b,i,left,right,temp:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
write('Введите загадочное число B ');
readln(b);
writeln('Элементы массива:');
{создание и вывод начального массива}
randomize;
for i:=1 to n do
begin
mas[i]:=random(100)-50;
write (mas[i]:4);
end;
writeln();
left:=0;
right:=n;
while left <> right do {просматриваем массив с концов к середине, пока "левый" и "правый" текущие элементы не встретятся}
begin
if mas[left+1]<=b then
{если текущий "левый" элемент меньше или равно В, то просто идём смотреть следующий }
begin
left:=left+1;
end
else
if mas[right]>=b then
{если текущий "правый" элемент больше или равно В, то просто идём смотреть следующий }
begin
right:=right-1;
end
else
{иначе меняем "левый" и "правый" местами}
begin
temp:= mas[left+1];
mas[left+1]:=mas[right];
mas[right]:=temp;
left:=left+1;
right:=right-1;
end;
end;
writeln();
{вывод массива-результата}
for i:=1 to n do
begin
write (mas[i]:4);
end;
writeln();
end.