Статья,набранная на компьютере,содержит 16 страниц,на каждой странице 32 строки,на каждой строке 20 символов. определите информационный объём статьи в одной из кодировок unicode, в которой каждый символ кодируется 16
битами.
292
295
Ответы на вопрос:
20*32*16 = 10240 (количество символов в статье)
каждый символ кодируется 16-ю битами,
10240 * 16 = 163840 бит.
можно перевести в килобайты.
163840 бит/8 = 20480 байт
20480/1024 = 20 кб.
ответ: 20 килобайт.
Var i, j, lensi, lensj, k, z, ni, nj, p: integer; // i - числитель числа, j - знаменатель числа, k, z - счетчики циклов; lensi - длина числителя (двухзначный или трехзначный); lensj - длина знаменателя (двухзначный или трехзначный); ni и nj - числитель и знаменатели нового числа (например, было 48/98. вычеркнули 8 и 8, получилось 4/9, где ni = 4, а nj = 9); p - индекс массива newd, rez: real; // rez - здесь хранится результат деления числителя на знаменатель; newd - здесь хранится результат деления числителя на знаменатель при условии, что вычеркнуты цифры в rez a, b, si, sj, nis, njs: string; // a, b, si, sj - временные переменные для хранения числителя и знаменателя в формате строк; nis, njs - переменные для хранения нового числителя и знаменателя в формате строк; w - просто строка, выводящая результат w: array[1..10000] of string; // массив, сравнивающий строки для вывода уникальных begin p : = 2; for i : = 10 to 500 do // начало цикла, перебирающего все числа до числа 500/500 for j : = 10 to 500 do begin rez : = i / j; // здесь хранится значение деления, грубо говоря тут 49/98 (по примеру) si : = inttostr( i ); // конвертируем числитель в строковый формат, чтобы было удобнее работать с отдельными его цифрами sj : = inttostr( j ); // аналогично, только со знаменателем lensi : = length( si ); // узнаем длину числителя (может быть 2 или 3 - в зависимости от количества разрядов) lensj : = length( sj ); // аналогично, только со знаменателем a : = si; // создаем временные переменные, чтобы "вырезать" цифры b : = sj; for k : = 1 to lensi do // цикл сравнивания текущей цифры числителя с текущей цифрой знаменателя for z : = 1 to lensj do begin nis : = si; njs : = sj; if ( a[ k ] = b[ z ] ) then begin // если цифра в числителе равна цифре в знаменателе delete( nis, k, 1 ); // то она вычеркивается в числителе delete( njs, z, 1 ); // и вычеркивается в знаменателе ni : = strtoint( nis ); // новое число уже без одинаковых цифр цифр nj : = strtoint( njs ); newd : = ni / nj; // результат деления нового числа, грубо говоря тут 4/8 (по примеру) if ( newd = rez ) then begin // если результат деления числа равен результату деления нового числа (которые без одинаковых цифр), то выводим интересную дробь w[p] : = inttostr(i) + '/' + inttostr(j) + ' = ' + inttostr(ni) + '/' + inttostr(nj); if ( w[p] < > w[p - 1] ) then begin writeln(w[p]); inc(p); end; end; end; end; end; end.
Популярно: Информатика
-
TBONBATYA24.03.2020 05:54
-
юля252129.09.2021 06:09
-
Ymnusha14.03.2020 19:11
-
sandra556614.02.2023 14:05
-
anyk200405.01.2020 07:28
-
Shurikoff122.12.2020 07:39
-
лис23923.10.2022 19:23
-
nik1324354657687927.08.2021 21:37
-
Andrey1privet409.12.2021 13:12
-
mansurevk200509.11.2020 05:04