Определите информационный объем текста: ядра - чистый изумруд; а. текст написан в тераде б. текст набран с компьютера (ascii) в. текст набран с компьютера (unicode)
Буду считать, что точка с запятой входит в текст Количество символов: 22 а) Не знаю б) 1 символ = 1 байт => 22 * 1 = 22 байта = 22 * 8 = 176 бит в) 1 символ = 2 байта => 22 * 2 = 44 байта = 44 * 8 = 342 бита
Var a: array[0..9] of Integer; i,n,nol,otr,nochet: Integer; chet: Real; begin nochet:=1; for i:=0 to 9 do begin writeln('Введите ',i+1,' число'); readln(n); a[i]:=n; end; for i:=0 to 9 do begin if a[i]=0 then nol:=nol+1; if a[i]>-4 then otr:=otr+1; if i mod 2=0 then chet:=chet+1 else nochet:=nochet*a[i]; end; chet:=chet/2; writeln('Кол-во нулевых элементов: ',nol); writeln('Сумма элементов, больше -4: ',otr); writeln('Полу-сумма элементов с чётными индексами: ', chet); writeln('Произведение нечётных элементов: ',chet); end.
Количество символов: 22
а) Не знаю
б) 1 символ = 1 байт => 22 * 1 = 22 байта = 22 * 8 = 176 бит
в) 1 символ = 2 байта => 22 * 2 = 44 байта = 44 * 8 = 342 бита