Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
Что бы наверняка охватить все возможные символы, пусть текст кодируется по стандарту UTF-16, т.е. 2 байта на символ.
Далее нужно измерить кол-во символов в строке, потом количество строк на странице, количество страниц в учебнике.
Таким образом получим емкость страницы:
(кол-во строк на стринце)*(кол-во символов в строке)*(кол-во страниц в учебнике)*2 = байт/учебник. Назовем полученную величину емкость учебника E;
Далее делим.
360 Кбайт: 360*1024 / E
1.44 Мбайт: 1.44 * 1024^2 / E
420 Мбайт: 420 * 1024^2 / E
6,4 Гбайт: 6.4 * 1024^3 / E
Var b,s:real;
begin
S := 3;
b := 0;
repeat
b := 2 + s + b;
s := s + 4;
until s=99;
writeln(b);
end.
Да, можно.У книги очень маленький вес в мегабайтах.(это не обязательно писать).