ТЕСТОВЫЕ ЗАДАНИЯ К РАЗДЕЛУ 1 1. Что изучает наука эргономика?
A) Наука о передаче, применении и обработке информации,
B) Наука об хрифективной организации рабочего места с целью
создания благоприятных условий для человека.
C) Наука, объясняющая безопасность.
Е) Наука о психологическом и физиологическом развитии
D) Сфера организации работы с конкретными программами.
2. Каким должно быть расстояние между монитором и глазами?
3. Какие действия могут привести к интернет-зависимости?
человека.
А50-60 см.
В) 40-50 см.
C) 60-70 см,
D) 70-80 см.
E) 45-55 см.
A) Долгое времяпровождение в социальных сетях.
B) Прослушивание нужной информации.
с частый обмен информацией в Интернете.
D) Использование носителей информации.
E) Занятие самовоспитанием.
4. Какое нововведение внес Джон Непер?
А) Тридумал линейку.
B) Придумал счеты.
C) Создал первую вычислительную машину.
D) Bвел первую систему счисления.
E) Bвел понятие логарифма.
5. Французский математик, создавший вычислительную ма-
шину в 1642 году,
А) Чарлз Бэббидж.
В) Джон Непер.
C) Блез Паскаль.
D) Герман Холлерит,
E) Говард Айкен.
6. Кто автор первой автоматизированной вычислительной
машины?
A) Конрат Цузе.
D) Цузе.
В) Чарлз Бэббидж,
E) Джон Непер.
C) Ада Лавлайс.
type matrix = array [1..8] of integer;var F, output: text; i, n, cc, sum: integer; c: char; x: matrix; ma: real;
procedure convert (var c: char; var cc: integer);begin if c='1' then cc:=1; if c='2' then cc:=2; if c='3' then cc:=3; if c='4' then cc:=4; if c='5' then cc:=5; if c='6' then cc:=6; if c='7' then cc:=7; if c='8' then cc:=8; if c='9' then cc:=9; if c='0' then cc:=0;end;
procedure sorting (n: integer; x: matrix);begin for n:=1 to 7 do begin if x[n]>x[n+1] then swap(x[n],x[n+1]); end;end;
begin Assign(F, '1.txt'); Reset(F); for i:=1 to 8 do begin read(F, c); convert(c,cc); x[i]:=cc; end; Close(F);
sorting(n,x); sum:=x[1]+x[2]+x[3]+x[4]+x[5]+x[6]+x[7]+x[8]; ma:=sum/8; Assign(output, 'output.txt'); rewrite(output); writeln(output, sum); writeln(output, ma); Close(output);end.