5. статья, набранная на компьютере, содержит 128 страниц, на каждой странице 32 строки, в каждой строке 30 символов. определите информационный объём статьи (в килобайтах) в кодировке кои-8, в которой каждый символ кодируется 8 битами.
Var a,x:real; begin Write('Введите через пробел x и a: '); Read(x,a); Writeln((6+x)/(3-a)) end.
Результат выполнения программы: Введите через пробел x и a: 5.18 4.65 -6.77575757575757
var i,d,n,k,s:integer; begin Write('Укажите количество чисел: '); Read(n); Writeln('Вводите числа: '); k:=0; s:=0; for i:=1 to n do begin Read(d); if (d mod 3)=0 then Inc(k) else s:=s+d end; Writeln('Количество кратных 3 равно ',k); Writeln('Сумма некратных 3 равна ',s) end.
Тестовое решение: Укажите количество чисел: 7 Вводите числа: 4 18 6 45 7 20 8 Количество кратных 3 равно 3 Сумма некратных 3 равна 39
Const n=5; var x:array[1..n, 1..n] of integer; i,j,k:integer; begin Randomize; Writeln('Исходный массив'); for i:=1 to n do begin for j:=1 to n do begin x[i,j]:=Random(50)+1; Write(x[i,j]:4) end; Writeln end; k:=0; i:=2; while i<=n do begin for j:=1 to n do if x[i,j] mod 2=0 then Inc(k); i:=i+2 end; Writeln('Количество четных элементов в четных строках равно ',k) end.
Тестовое решение: Исходный массив 1 14 23 17 39 27 37 28 28 21 10 6 3 38 22 1 31 27 50 42 16 43 27 16 17 Количество четных элементов в четных строках равно 4
Общий вес текста/сообщения:
I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)
K = 128 * 32 * 30 шт = 122880 шт
i = 8 бит
Вес текста I = K * i = 122880 * 8 бит = 983040.0 бит
983040.0 бит = 122880.0 байт = 120.0 Кбайт