1) Множество компьютеров, связанных каналами передачи информации и находящихся в пределах одного помещения, здания, называется:
Г) локальной компьютерной сетью;
2) Глобальная компьютерная сеть - это:
Б) совокупность локальных сетей и компьютеров, расположенных на больших расстояниях и соединенных с каналов связи в единую систему;
3) Наибольшие возможности для доступа к информационным ресурсам обеспечивает подключения к Интернету;
В) постоянное соединение по оптоволоконному каналу;
4) Сетевой протокол - это;
А) набор соглашений о взаимодействиях в компьютерной сети;
6) Моделирование - это:
А) процесс замены реального объекта (процесса, явления) моделью, отражающей его существенные признаки с точки зрения достижения конкретной цели;
7) Модель - это:
В) материальный или абстрактный заменитель объекта, отражающий его пространственно-временные характеристики;
8) Натурное моделирование - это;
В) моделирование, при котором в модели узнается какой - либо отдельный признак объекта-оригинала;
9) Математическая модель объекта - это:
А) совокупность записанных на языке математики формул, отражающих те или иные свойства объекта-оригинала или его поведение;
10) Рисунки, карты, чертежи, диаграммы, схемы, графики представляют собой:
Г) графические информационные модели;
var ar: array[0..3] of integer;
digits: array[0..9] of integer;
out: array[1..4, 1..7]of integer;
begin
for var i := 0 to 9 do
digits[i] := 0;
var sum := 0;
for var i := 1 to 2 do
begin
out[i][1] := 1053;
out[i][2] := 1077;
out[i][3] := 1074;
out[i][4] := 1077;
out[i][5] := 1088;
out[i][6] := 1085;
out[i][7] := 1086;
end;
out[4][1] := 1053;
out[4][2] := 1077;
out[4][3] := 1074;
out[4][4] := 1077;
out[4][5] := 1088;
out[4][6] := 1085;
out[4][7] := 1086;
out[3][1] := 1042;
out[3][2] := 1077;
out[3][3] := 1088;
out[3][4] := 1085;
out[3][5] := 1086;
out[3][6] := 160;
out[3][7] := 160;
var num := readinteger('Введите четырехзначное число:');
ar[3] := num mod 10;
ar[2] := num div 10 mod 10;
ar[1] := num div 100 mod 10;
ar[0] := num div 1000;
for var i := 0 to 3 do
digits[ar[i]] += 1;
for var i := 0 to 9 do
try
sum += digits[i] div digits[i];
except
on System.DivideByZeroException do
end;
for var i := 1 to 7 do
write(chr(out[sum][i]));
end.