<span>Сети с выделенным сервером достаточно дешевы и просты в обслуживании, однако не могут обеспечить должной защиты информации при большом размере сети - 2) Верно</span>
Program first;
var x : Integer;
begin
for x := 1 to 10 do begin
write(x);
if x mod 2 = 0 then
writeln('-четное')
else writeln('-нечетное');
end;
end.
На кодирование каждого диода необходим 1 бит (2 состояния - 0/1)
В сегменте 64х32=2048 (диодов или бит).
8 сегментов кодируются 2048х8=16384 (бит) = 2 кБ.
При ежесекундном изменении состояния будет 3600 обновлений за 1 час.
Таким образом, на час необходимо 2х3600 = 7200 килобайт информации.
Var
a: array [1..12] of real; //Массив стоимости
s: real; //сумма
i: integer;
begin
s:= 0;
for i:= 1 to 12 do {12 раз вводим стоимость предмета и прибавляем ее к значению s}
begin
writeln('Введите стоимость предмета');
readln(a[i]);
s:= s + a[i];
end;
writeln('Общая стоимость всех предметов: ', s);
end.