1 год назад

Информационный объём текста, подготовленного с помощью компьютера, равен 22 Мб. Сколько символов содержит этот текст?

Знания

Информатика

1 ответ:

little-i79 [3]1 год назад

0 0

Пусть кодировка 8 битная и текст не имеет ничего кроме текста)
22*1024*1024*8/8 = 23`068`672 символов

Читайте также

Определите тип величин, записанных на алгоритмическом языке: 0; "25"; 4; "мел"; 2,8; -2.

Анна 1988

0 - целый тип
"25" - строковый
4 - целый
"мел" - строковый
2,8 - вещественный
-2 - целый

0 0

3 года назад

Создать массив а из 10 целых чисел, принадлежащих промежутка [0;20). Вывести полученный массив на экран. Вычислить количество эл

WarWo1F [3.3K]

//прога на Pascal`e
var
a : array[1..10] of shortint;
i, count, sum : byte;
begin
randomize;

write ('Сформированный массив: ');
for i:=1 to 10 do
begin
a[i]:=random (20);
write (a[i], '; ');
inc (sum, a[i]);
end;
writeln ();
write ('Кол-во элементов массива, значение которых превышает СА: ');
for i:=1 to 10 do
if a[i]>(sum/10) then inc (count, 1);
write (count);
end.

0 0

4 года назад

Прочитать ещё 2 ответа

Составить программу: сформировать в памяти массив из 15 целых чисел.Изменить массив так,чтобы числа под чётными номерами были уд

СтасяК [7]

var
a: array [1..25] of integer;

begin
for i: integer := 1 to 25 do
begin
a[i] := random(255);
writeln(i, ' => ', a[i]);
end;
writeln('-----------------------------------');
for i: integer := 1 to 25 do
begin
if (i mod 2 = 0) then
a[i] := a[i] * 2
else
a[i] := 0;
writeln(i, ' => ', a[i]);
end;
<span>end.</span>

0 0

4 года назад

Файл размером 1450 Кбайт передаётся через некоторое соединение в течение 40 секунд. Определите размер файла (в Кбайт), который м

Lawyer 777 [55]

Ответ:2175 кб

Объяснение: За 40 сек. Передается файл размером 1450 КБ, значит надо 1450:40, этим действием мы получим скорость соединения и эту скорость мы умножаем на 60 сёк и получаем 2175 КБ.!

0 0

3 года назад

Прочитать ещё 2 ответа

Складіть програму, яка виводить на екран рекламу гамбургерів і пропонує користувачеві зробити замовлення. Програма приймає замов

Liubov14

//Pascal ABC.NET v3.0 сборка 1111

Var
a:integer;
begin
writeln('Our burgers do not prepare you for the exam, but will learn to code');
writeln('Value of burgers:');
readln(a);
case a of
1:writeln('Mineral water');
2:writeln('Coca-cola bottle');
end;
if a>=3 then writeln('One more burger');
end.<span>

Пример ввода:
10
Пример вывода:
One more burger
</span>

0 0

3 года назад