Задача 1.
Общее количество символов: 50*85*15= 63750
Один символ кодируется 8 битами или 1 байтом, следовательно объем текста = 63750 байт = 62,26 Кбайт
Задача 2.
Количество символов на странице: 60*64 = 3840
Разделив объем текста (в байтах) на количество символов на странице получим количество страниц: (9*1024)/3840 = 2,4
Следовательно ответ: 3 страницы
Задача 3.
Время передачи файла можно определить разделив объем файла( переведя в биты) на скорость передачи
t= (9*1024*8)/256 = 288 сек.
Задача 4.
В тексте содержится 51 символ, на каждый символ приходится 1 байт, следовательно фраза содержит 51 байт информации.
// PascalABC.NET 3.0, сборка 1111
const
alpha=['a'..'z'];
digits=['0'..'9'];
var
na,nd,i:integer;
s:string;
begin
na:=0; nd:=0;
Write('Введите текст: '); Readln(s);
for i:=1 to Length(s) do
if s[i] in alpha then Inc(na)
else
if s[i] in digits then Inc(nd);
if na>nd then Writeln('В тексте больше букв')
else
if na<nd then Writeln('В тексте больше цифр')
else Writeln('В тексте букв и цифр поровну')
end.
<u><em>Тестовое решение:</em></u>
Введите текст: the equation 3.546x^2+4.18x-4.1=0
В тексте больше букв
Ответ:
program arrmax;
var
i, i1, i2, amax: Integer;
a: array [1..10] of integer;
begin
Randomize;
for i := 1 to 10 do // заполнение массива случайными числами
a [i] := Random (11);
for i := 1 to 10 do // вывод на экран элементов массива
Write (a [i], ' ');
amax := -1;
i1 := -1;
for i := 1 to 10 do // поиск первого максимального элемента
if a [i] > amax then begin
amax := a [i];
i1 := i;
end;
WriteLn;
WriteLn ('Индекс первого элемента массива с наибольшим значением = ', i1);
amax := -1;
i2 := -1;
for i := 10 downto 1 do // поиск последнего максимального элемента
if a [i] > amax then begin
amax := a [i];
i2 := i;
end;
WriteLn ('Индекс последнего элемента массива с наибольшим значением = ', i2);
ReadLn;
end.
Объяснение:
1 мегабайт это 1024 байт
А 1 гигабайт соотвественно 1024 мегабайт
Получается 4 Гбайт = 4096 Мбайт, если разделить 4096:145=28,25. Но если надо полных клипов , то ответ будет - 28 полных клипа
