program Program1; var i, j, n, k: integer; var result: real; var array1: array [1..255] of real; begin result := 0; write('Введите значение N (не более 255): '); readln(n); for i := 1 to n do begin write('Введите значение ', i, ' элемента массива: '); readln(array1[i]); end; begin writeln('Массив, размером - ', n, ' элементов(а):'); for i := 1 to n do write(array1[i], ' '); writeln; end; for i:=1 to n do begin k := 0; for j:=1 to n do if array1[i] = array1[j] then k := k + 1; if k = 1 then result := result + array1[i]; end; writeln('Сумма уникальных элементов массива = ', result); end.
Количество информации в сообщении обычно равно количеству бит (округляемому до ближайшего целого с избытком) , которое необходимо для воспроизведения текста сообщения. то есть в сообщении 10101010 информации - 8 бит, в сообщении "погода сегодня будет зимняя, снег не растает, солнце взойдет утром и сядет вечером" - 350 бит (если считать, для простоты, что в языке 32 буквы) . в сообщении e=hν информации, если кодировку ситать юникодом, - 8 байт (64 битa) информации. но вот ценность этих сообщений несопоставима. но ценность информации не есть величина неизбывная и строго измеряемая для данного сообщения. она всегда зависит от того, кому эта информация предназначена, и от того, что путного можно извлечь из неё, а значит - слабо формализуема. в конце концов, запросто можно представить себе (путь и фантастическую)
1) 6,77 мм (для стран Таможенного союза)
2) 6,35 мм (для программ компьютерной вёстки)
Объяснение:
Что такое pt? pt - это типографский пункт, единица измерения кегля шрифта.
Во входящих в Таможенный союз странах СНГ пункт исчисляется по типометрической системе Дидо, в которой 1 пункт равен 0,376 мм.
В программах компьютерной вёрстки широко используется введённый компанией Adobe пункт, приравненный к 1/72 дюйма, то есть 0,3528 мм.
Т.е. из-за нечеткой формулировки вопроса, у вас будет два ответа:
1) 18*0,376 ≈ 6,77 мм (для стран Таможенного союза)
2) 18*0,3528 ≈ 6,35 мм (для программ компьютерной вёстки)