12>10,но 12<12 неверно, значит
n:=12-1
что равно 11
<span>персональная возможно</span>
Program z1;
var a,b,c,d,e:integer;
begin
Writeln('Введите числа: ');
Write('Первое число (a): '); read(a);
Write('Второе число(b): '); read(b);
if (a mod 2=0) then c:=a;
if (b mod 2=0) then d:=b;
if (a mod 2=0) or (b mod 2=0) then Writeln('Среди введённых чисел присутствует чётное число')
else Writeln('Среди введённых чисел нет чётных чисел');
if (c=a) then Writeln('Чётное число: ',c);
if (d=b) then Writeln('Чётное число: ',d);
end.
Крупнейшая в мире локальная сеть создана в Европейском Центре ядерных исследований. Она объединяет несколько тысяч компьютеров и работает с Большим адронным коллайдером. Внутри центра проложено 35000 километров оптического кабеля.
<span>Информация, которую дает коллайдер и другие ускорители, проходит обработку в детекторе и через локальный вычислительный центр поступает в главный центр хранения и обработки данных. Ежедневно компьютерам нужно принять, сохранить, обработать и распределить около одного петабайта данных. Количество ежегодно производимой информации, записанной на CD-диски, было бы равно двадцатикилометровой стопке.</span>