1) звуком называется a) волна b) импульс, частота которого позволяет ему быть c) механические колебания 2) информационный продукт это a) совокупность информационных процессов b) документ, информационные массивы, базы c) совокупность данных , сформированных 3) к информационному обслуживанию не относится a) комплексное b) фактографическое c) документное 4) при перемещении ячейки с формулой стиля а1… a) не изменяются только абсолютные ссылки, содержащиеся в формуле b) не изменяются только константы, содержащееся в формуле c) не изменяются только относительные ссылки, содержащееся в формуле d) не изменяются любые ссылки на ячейки, содержащееся в формуле 5) программы lotys 1-2-3 и microsoft excel являются a) текстовыми редакторами b) системами базами данных c) электронами таблицами d) графическими редакторами 6) чем отличается корпоративный блог от корпоративного сайта? a) на корпоративном сайте размещается информация о компании, а корпоративный блог ведут несколько человек, рассказывая о жизни и процессах, протекающих внутри компании b) нечем не отличается, любой корпоративный сайт можно считать блогом c) блог- это представительство компании а интернете, а сайт- нет d) содержимым корпоративного сайта занимается только один человек , а блогом- несколько e) корпоративный сайт размещается в корпоративном блоге 7) как осуществляется регулирование материалов в коллективном блоге? a) коллективный блог- это закрытое сообщество, где все друг друга знают лично b) коллективный блог обладает механизмом саморегулирования c) за порядком коллективного блога следят большое количество добровольных модераторов d) коллективный блог не может содержать плохих материалов e) коллективный блог это и есть корпоративный блог 8) носители информации классифицируется a) типу (ленточные, флеш и дисковые) b) виду хранящихся на них сообщений c) объему памяти 9) технология blue – ray стала доступной a) в 2000 году b) в 2002 году c) в 2004 году 10) для кодировки символов в сша разработали специальную a) таблицу b) технологию c) программу
program pr10;
uses crt;
var
i: integer;
t: real; // рабочая переменная
i: byte; // счетчик массива
k: byte; // параметр цикла
a: array[1..15] of real;
n: byte; // размерность цикла
begin
clrscr;
write('введите размерность: ');
readln(n);
writeln('введите ',n,' элементов');
for i: =1 to n do
readln(a[i]);
writeln('исходный массив: ');
for i: =1 to n do
write(a[i]: 5: 1,' ');
readln;
// блок обработки
for k: =1 to n do
for i: =1 to n-k do
if(a[i]> a[i+1]) then
// перестановка
begin
t: =a[i];
a[i]: =a[i+1];
a[i+1]: =t;
end;
writeln('отсортированный массив: ');
for i: =1 to n do
write(a[i],' ');
writeln;
readln;
end.
я хз как правильно проверить простое число или нет. вот код, который просто сортирует массив по возрастанию.
type cl = class
a: integer;
constructor create(b: integer);
procedure setval(b: integer);
function getval: integer;
procedure sq;
end;
constructor cl.create(b: integer);
begin
a : = b;
end;
procedure cl.setval(b: integer);
begin
a : = b;
end;
function cl.getval: integer;
begin
getval : = a;
end;
procedure cl.sq;
begin
if a < 0 then
writeln('a ^ 2 = ', a * a)
else
writeln('error');
end;
var
obj: cl;
a : integer;
begin
write('a = ');
readln(a);
obj : = cl.create(a);
obj.sq;
readln;
obj.destroy;
end.