1) дан массив целых чисел, состоящий из 10 элементов. заполнить его с клавиатуры. вывести на экран только те числа, для которых из значение больше номера их индекса. ,

var    m : array [1..10] of integer;     i : integer; begin     writeln('введите массив: ');     for i : = 1 to 10 do     begin         write(i, ': ');         readln(m[i]);     end;     for i : = 1 to 10 do         if m[i] > i then             write(m[i], ' ');

    readln; end.

для 4 символов:

2*2*2*2=16

для 5 символов:

2*2*2*2*2=32 

для 6 символов:

2*2*2*2*2*2=64

16+32+64=112

80 * 60 = 4800 символов на 1 странице

4800 * 450 = 2160000 символов в книге

обычно 1 символ кодируется 1 байтом информации, значит

в книге 2160000 байт, переведем их в мегабайты

2160000 : 1024 = 2109,375 кб (килобайт)

2109,375 : 1024 = 2,06 мб (мегабайт)

следовательно рукопись на 1 дискету не поместится, для нее необходимо 2 дискеты.